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

Delphi-Quellcode:

if (Shift= [ssCtrl,ssAlt])and (char(Key)= char(70)) then

oder

Delphi-Quellcode:

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