Ergebnis der Suchanfrage

• Forum: Programmieren allgemein

  AW: Key Preview / Ctrl+Q abfragen

    Delphi
    by Delphi.Narium, 11. Jan 2019
  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:
  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 +
  ...
• Forum: Programmieren allgemein

  AW: Key Preview / Ctrl+Q abfragen

    Delphi
    by Delphi.Narium, 11. Jan 2019
  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.
• Forum: Programmieren allgemein

  AW: Key Preview / Ctrl+Q abfragen

    Delphi
    by Delphi.Narium, 11. Jan 2019
  Ja, aber dur drückst das kleine q und fragst mit Ord das große Q ab. Wird's mit 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);
  ...
• Forum: Programmieren allgemein

  AW: Key Preview / Ctrl+Q abfragen

    Delphi
    by Delphi.Narium, 11. Jan 2019
  Für sowas nehme ich 'ne TActionList.
  
  Der 'ne Action zuweisen.
  
  Die hat ein Attribut ShortCut.
  
  Dort Strg+Q eingeben und den Quelltext ShowMessage(...) dort eingeben.
  
  Der von Dir zu erstellende Quelltext reduziert sich dann auf ShowMessage('SQL ' + sLastQry + #13 + #13 +
  'Statement ' + #13 + #13 +