Pfeiltasten abfangen

[PeterKiers]

Ich habe Das Problem selbst gelöst:

Code:

protected   
    { Protected declarations }   

 
    procedure wmkillfocus(var message : TMessage); message WM_KILLFOCUS;   
    procedure wmsetfocus(var message : TMessage); message WM_SETFOCUS;   
    procedure WMGetDlgCode(Var Msg:TWMGetDlgCode); message wm_getdlgcode;   

 
published   
    { Published declarations }   
   Property Align;   
   Property TabOrder;   
   Property TabStop default true;   

 
procedure TDSP3270.wmkillfocus(var message: TMessage);   
begin   
  inherited;   
  invalidate;   
end;   

 
procedure TDSP3270.wmsetfocus(var message: TMessage);   
begin   
  inherited;   
  invalidate;   
end;   

 
procedure TDSP3270.WMGetDlgCode(var Msg: TWMGetDlgCode);   
begin   
  inherited;   
  Msg.Result:=Msg.Result or dlgc_WantAllKeys or dlgc_WantArrows or dlgc_WantTab;   
end;

Peter Kiers