Mehrere Tasten gleichzeitig abfragen...?!

[barnti]

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

[MarcoWarm]

Hallo Barnti,

Du hast da, so leid's mir tut, n kleinen Denkfehler:

Shift kann niemals gleich [ssCtrl] und [ssAlt] sein
sehr wohl aber [ssCtrl,ssAlt]

richtig wäre also
if (Shift= [ssCtrl,ssAlt])and (char(Key)= char(70)) then oder

if (ssCtrl in Shift) and (ssAlt in Shift) and (char(Key)= char(70)) then letzteres würde auch noch ein Ereignis auslösen, wenn der Nutzer zusätlich Shift gedrückt hält.

Ciao

marco

[barnti]

DANKE!

Scheint heute ein schlechter Tag für mich zu sein. Ich komme einfach nicht klar. Konzentration null. Man könnte meinen es wäre heute Montag morgen, da komme ich überhaupt nicht aus dem Quark...

Danke Dir für Deinen 'Schlag auf den Hinterkopf'.

Gruß,

Barnti