Key Preview / Ctrl+Q abfragen

[p80286]

das testen auf "q" oder "Q" halte ich nicht für sinnvoll. VKQ sollte die Taste besser repräsentieren.
Wenn es mal funktioniert und mal nicht, was ist mit Keypressed oder KeyDown ??

Gruß
K-H

[Delphi.Narium]

Stimmt auch wieder, wenn einmal VK_F3 für die Taste F3 genutzt wird und funktioniert, warum eigentlich nicht für die Taste q analog VK_Q nutzen. Ist doch eigentlich so naheliegend.

[rokli]

Tja...

Zitat von Delphi.Narium:

analog VK_Q nutzen. Ist doch eigentlich so naheliegend.

VK_Q und VKQ wird nicht kompiliert (undeklarierter Bezeichner). Der Kleinbuchstabe funzt ebenfalls nicht.

Nun frag ich mit ORD('q') und ORD('Q') beide Werte ab.

Im Moment hab ich das Gefühl, als wenn die Abfrage erst beim 2. mal, wenn die Tastenkombination kommt, funktioniert. Aber ich will ja noch das mit der ActionList testen.

[Amateurprofi]

Zitat von rokli:

Tja...

Zitat von Delphi.Narium:

analog VK_Q nutzen. Ist doch eigentlich so naheliegend.

VK_Q und VKQ wird nicht kompiliert (undeklarierter Bezeichner). Der Kleinbuchstabe funzt ebenfalls nicht.

Nun frag ich mit ORD('q') und ORD('Q') beide Werte ab.

Im Moment hab ich das Gefühl, als wenn die Abfrage erst beim 2. mal, wenn die Tastenkombination kommt, funktioniert. Aber ich will ja noch das mit der ActionList testen.

Im FormKeyUp wird NICHT der Code eines Zeichens sondern der Code einer Taste übergeben. Bei den "Buchstaben-Tasten" wird, gleichgültig ob die Shift-Taste gedrückt ist oder nicht, der Code des Versals übergeben. Auf Ord('q') zu prüfen macht also im KeyUp keinen Sinn.

[Delphi.Narium]

Stimmt auch wieder, das Zeichen der Taste bekommt man hier ja garnicht.

Das q müsste hier als 81 erscheinen demnach sollte nun aber dashier funktionieren:

Delphi-Quellcode:

procedure TfrmReklaGr.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
   if ssCtrl IN Shift then begin
      if Key = 81 then begin
         ShowMessage('SQL ' + sLastQry + #13 + #13 +
                     'Statement ' + #13 + #13 +
                     sLastSQL);
      end;
   end;
end;

Um zu sehen, was in FormKeyUp abgefragt werden muss hilft eventuell sowas:

Delphi-Quellcode:

procedure TfrmReklaGr.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  ShowMessage(Format('Abfragewert für die gerade gedrückte Taste: Key = %d',[key]));
end;

[rokli]

Hallo nochmal!

Also: Mit der ActionList gibts gar keine Probleme. Die Tastenkombination wird immer korrekt erkannt und ausgeführt. Daher ist das auf alle Fälle das Mittel der Wahl!

Vielen Dank fürs Gespräch