Key Preview / Ctrl+Q abfragen

[Delphi.Narium]

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?