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;