想重载KEYDOWN实现用方向键移动焦点，为什么不好用，求大虾指点

orange4923

unit SunEdit;

interface

uses
  SysUtils, Classes, Controls, StdCtrls, Mask, Windows, Graphics, Messages, RzEdit;

type
//  TSunEdit = class(TRzEdit)
  TSunEdit = class(TEdit)
  private
    { Private declarations }
  protected
    { Protected declarations }
    procedure KeyDown(var Key: Word; Shift: TShiftState);override;   
  public
    { Public declarations }
    constructor Create(AOwner: TComponent); override;
  published
    { Published declarations }
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('SunComponent', [TSunEdit]);
end;

constructor TSunEdit.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
//  self.FrameVisible:=true;
end;

procedure TSunEdit.KeyDown( var Key: Word; Shift: TShiftState);
begin

  inherited;

IF ((KEY=Windows.VK_DOWN) or (KEY=Windows.VK_RETURN)) THEN
  begin
   perform(WM_NEXTDLGCTL,0,0);//移动到下一控件
    self.Caption:=inttostr(ord(key));
  end;
  {
else
IF (KEY=Windows.VK_up) THEN
   perform(WM_NEXTDLGCTL,1,0); //移动到上一控件
   }

end;


end.

Guderian

procedure TForm1.FormCreate(Sender: TObject);
begin
  KeyPreview := True;
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  case Key of
    VK_DOWN: if ActiveControl is TEdit then Perform(WM_NEXTDLGCTL, 0, 0);
    VK_UP: if ActiveControl is TEdit then Perform(WM_NEXTDLGCTL, 1, 0);
  end;
end;

orange4923

这样要在每个FROM上写，我想把这个功能直接放在TEDIT上，可以实现吗？

orange4923

我的意思是，我想把使用方向来移动焦点的功能放在我自己的EDIT控件上，请问要怎么实现

orange4923

哪位大哥帮个忙啊，我是想把用方向键移动焦点的功能放在自己的EDIT控件上，这样以后用着就方便了，有没有方法啊？

Guderian

IF ((KEY=Windows.VK_DOWN) or (KEY=Windows.VK_RETURN)) THEN
  begin
   Parent.Perform(WM_NEXTDLGCTL,0,0);//移动到下一控件
// ~~~~~~

orange4923

谢谢 Guderian(专家门诊清洁工)
太让我感动啊