Здравейте дали някой знае как да разбера дали Алта е пуснат но като преди това имам някаква клавишна комбинация с Алт
( ssAlt in Shift ) and ( Key = Ord( 'A' ) )

procedure TForm1.FormShortCut(var Msg: TWMKey; var Handled: Boolean);
begin
if BeforeCharCode<>VK_MENU then
if Msg.CharCode = Ord( 'A' )
{//Твоя код е тук}
BeforeCharCode:=Msg.CharCode;
end;


BeforeCharCode:Word; - в членовете на TForm1 - private или public.

Супер мерси много !!!