Ja, aber dur drückst das kleine q und fragst mit Ord das große Q ab. Wird's mit
Delphi-Quellcode:
procedure TfrmReklaGr.FormKeyUp(Sender: TObject;
var Key: Word; Shift: TShiftState);
begin
if ssCtrl
IN Shift
then begin
if Key = 113
then begin // 113 = Ascii für q
ShowMessage('
SQL ' + sLastQry + #13 + #13 +
'
Statement ' + #13 + #13 +
sLastSQL);
end;
end;
end;
bzw.
Delphi-Quellcode:
procedure TfrmReklaGr.FormKeyUp(Sender: TObject;
var Key: Word; Shift: TShiftState);
begin
if ssCtrl
IN Shift
then begin
if Key = Ord('
q')
then begin
ShowMessage('
SQL ' + sLastQry + #13 + #13 +
'
Statement ' + #13 + #13 +
sLastSQL);
end;
end;
end;
besser?