Keypress Problem bei Setfocus

[thomas2009]

Zitat von turboPASCAL:

Im OI für die Form KeyPreview auf True setzen.

Natürlich ist KeyPreview auf true
Teste doch

______

Zitat von Hawkeye219:

Hallo,

zum sicheren Abfangen der Pfeiltasten könnte man das Ereignis TForm.OnShortCut verwenden:

Delphi-Quellcode:

procedure TForm1.FormShortCut(var Msg: TWMKey; var Handled: Boolean);
var
  Key : TShortCut;
begin
  Key := {Menus.}ShortCut(Msg.CharCode, KeyDataToShiftState(Msg.KeyData));

  if (Key = VK_RIGHT) then
    begin
      ShowMessage ('Gotcha!');
      Handled := True;
    end

Dein Code funktioniert viel besser und unabhängig von dem Fokus

Edit :
Es gibt aber ein problem mit der Tasten kombination zum beispiel :

Delphi-Quellcode:

  if ((Key = VK_CONTROL) and (Key = VK_RIGHT) ) then
    begin
      ShowMessage ('CTRL + Pfeil'); // Reagiert nicht !
      Handled := True;
    end

Danke