Pfeiltasten in eigener Komponente abfangen

[Dunkel]

Hallo!

Delphi-Quellcode:

type
  TMyClass = class
    protected
      procedure WMGetDlgCode(var Message: TWMGetDlgCode); message WM_GETDLGCODE;
  end;

{ ... }
procedure TMyClass.WMGetDlgCode(var Message: TWMGetDlgCode);
begin
  Message.Result := DLGC_WANTARROWS;
end;

... und das Control verliert den Fokus nicht mehr.