Fokuswechsel mit Pfeiltaste verhindern

[Daniela.S]

Du musst der Komponente mitteilen, dass sie Pfeiltasten akzeptieren soll.

Delphi-Quellcode:

  TMyComp= class(TCustomControl)
  private
    procedure WMGetDlgCode(var Msg: TWMGetDlgCode); message WM_GETDLGCODE;

...

procedure TMyComp.WMGetDlgCode(var Msg: TWMGetDlgCode);
begin
  Msg.Result := DLGC_WANTARROWS;
end;

procedure TMyComp.KeyDown(var Key: Word; Shift: TShiftState);
begin
  case Key of
    VK_LEFT:  ;
    VK_RIGHT: ;
    VK_UP:    ;
    VK_DOWN:  ;
    end;
end;