OnKeyDown TShiftState und Key

[rokli]

Moin zusammen!

Habe gerade die schwarze 8-) Brille auf:

Delphi-Quellcode:

  // Stg-S = speichern
  if (ssShift in Shift) and
     ((Key = 115) or (Key = 83)) then begin     // <--- das krieg ich nicht mit
      if savSQL.Execute then begin
         rieSQL.Lines.SaveToFile(savSQL.FileName);
      end;
  end;

führt nicht zum Ziel

Delphi-Quellcode:

  // Stg-S = speichern
  if (ssShift in Shift) tehn begin
    if ((Key = 115) or (Key = 83)) then begin       // < --- hier liegt mein Prob
      if savSQL.Execute then begin
         rieSQL.Lines.SaveToFile(savSQL.FileName);
      end;
      end;
  end;

geht leider genauso wenig

Mein Problem: ich bekomme die Abfrage vom Buchstaben 'S' nicht hin. Wenn ich das Tasstaturergebnis mit

Delphi-Quellcode:

  stbMain.Panels[5].Text   := ShortCutToText(ShortCut(Key, Shift));

auslese ist alles klar ...

Kann mir jemand helfen, das ich Strg-S korrekt ansteuere??

Vielen Dank
Rolf

[mleyen]

Delphi-Quellcode:

  if (ssCtrl in Shift) and (Key = 83) then
    MessageDlg('didumm', mtInformation, [mbOK], 0);

ssCtrl <-> ssShift :gruebel: :?:

[rokli]

@meylen

ok - die Brille war TIEF-SCHWARZ ... da kann ich lange auf CTRL drücken, wenn ich SHIFT abfrage!

:oops: :oops: :oops:

Vielen DANK!
Rolf

[rokli]

und jetzt auch noch den Namen falsch geschrieben

SORRY Marcel

[mleyen]

Kein Problem :wink:

2 Kleinigkeiten noch:
1. 115 ist VK_F4 und nicht das 'kleine s'.
2. Die 'saubere' Methode Buchstaben abzufragen wäre über VkKeyScan
So muss man auch nicht immer die ASCII-Codes überprüfen und verhindert Fehler wie in 1. :-D

Delphi-Quellcode:

if (ssCtrl in Shift) and (Key = VkKeyScan('s')) then

[rokli]

bin nochmal wieder mit einer Frage zum OnKeyDown da:

Delphi-Quellcode:

procedure TfraSQL.rieSQLKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   tag := 5;
   if Key = Vk_F5 then begin
      rieSQL.SelectAll;      // <--- das geht!
   end;
   if (ssCtrl in Shift) and (Key = VkKeyScan('a')) then begin
   tag := 5;
      rieSQL.SelectAll;      // <--- das geht NICHT ?!?
   end;
end;

Dieses OnKeyDown befindet sich in einem :!: FRAME!!

Warum kann ich mit 'F5' alles wie gewünscht markieren, aber mit CTRL-a nicht???

Hat da jemand ne Idee?

Tks Rolf