Key Preview / Ctrl+Q abfragen

[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;