Keypress Problem bei Setfocus

[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

Gruß Hawkeye