Einzelnen Beitrag anzeigen

barnti

Registriert seit: 15. Aug 2003
Ort: Mal hier mal da...
689 Beiträge
 
Delphi 7 Enterprise
 
#1

Mehrere Tasten gleichzeitig abfragen...?!

  Alt 2. Mär 2004, 10:56
Hi,

ich steh grad aufm Schlauch. Möchte bei Druck auf die Tasten 'Ctrl'+'Alt'+'F' Behandlungsroutine starten. Mein Code:

Delphi-Quellcode:
procedure TForm_Main.KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
...
 if (Shift= [ssCtrl]) and (Shift= [ssAlt])and (char(Key)= char(70)) Then
        begin
          ShowMessage('Ctrl+Alt+F');
          exit;
        end;
Leider passiert nichts. Liegt der Fehler am falsch gewählten Event(KeyDown)? Wie kann ich das ändern, so dass ich bis 'Showmessage' komme. Danke!

Gruß,

Barnti
  Mit Zitat antworten Zitat