引言: 請問如何作到以下需求？ 情形： 有BASEFORM，想要實做子孫類別中，FOCUS到某個dbedit後，可以反白該dbedit顏色或變色，但是在BaseForm中並無Create任何dbedit，所有的dbedit欄位都是在子類別中去Create的， 問題一，我要如何去抓dbedit on enter的Event呢？？ 問題二，又要如何抓dbedit focus移動呢？ 不知這樣的要求，可否寫在BaseForm中？讓所有子孫類別繼承？ 請各問前輩指導小弟，謝謝，如果能有例子更棒。

....
{Private}
  procedure myDBeditEnter(Sender: TObject);
.....
impeletment    procedure TForm1.....
   var myDbedit: TDBedit;
begin
   // 設定myDbedit 的各項property值
   myDbedit:= TDBedit.Create(self);
   myDbedit.Datasource:= ...
   ...
   // 設定這行, 指定 dbedit 的 onenter 指向 NewEnter
   myDbedit.onEnter:= Form1.myDBeditEnter;
end;    ...
// 實作onEnter的內容
Proecdure TForm1.myDBeditEnter(Sender: TObject);
begin
 寫你的程式 
 ....
end;

----------------unit1-------------------------
type
  //KeyPreview要設成True
  TForm1 = class(TForm)
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  public
    procedure DoEnterDBEdit(Sender:Tobject);virtual;abstract;
    procedure DoExitDBEdit(Sender:TObject);
  end;    var
  Form1: TForm1;    implementation    {$R *.DFM}    procedure TForm1.DoExitDBEdit(Sender: TObject);
begin
  (Sender as TEdit).Color:=clWhite;
end;    procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (Self.ActiveControl is TEdit) then
  begin
    (ActiveControl as TEdit).OnExit:=DoExitDBEdit;
    DoEnterDBEdit(ActiveControl);
  end;
end;
---------------------unit2 繼承自TForm1--------------------
type
  TForm2 = class(TForm1)
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  public
    procedure DoEnterDBEdit(Sender:TObject);override;
  end;    var
  Form2: TForm2;    implementation    uses Unit3;    {$R *.DFM}    { TForm2 }    procedure TForm2.DoEnterDBEdit(Sender: TObject);
var
  i:Integer;
begin
  //動態產生, 要改變顏色的
  if (Sender as TEdit).Tag=1 then
    (Sender as TEdit).Color:=clYellow;
end;    procedure TForm2.FormCreate(Sender: TObject);
var
  dyEdit:TEdit;
begin
  dyEdit:=TEdit.Create(Self);
  dyEdit.SetBounds(10,10,50,20);
  dyEdit.parent:=Self;
  dyEdit.Tag:=1;
end;    procedure TForm2.Button1Click(Sender: TObject);
begin
  Form3.Show;
end;
---------------------unit3 繼承自TForm1------------------
type
  TForm3 = class(TForm1)
    procedure FormCreate(Sender: TObject);
  public
    procedure DoEnterDBEdit(Sender: TObject);override;
  end;    var
  Form3: TForm3;    implementation    {$R *.DFM}
procedure TForm3.DoEnterDBEdit(Sender: TObject);
var
  i:Integer;
begin
  //動態產生, 要改變顏色的
  if (Sender as TEdit).Tag=1 then
    (Sender as TEdit).Color:=clRed;
end;    procedure TForm3.FormCreate(Sender: TObject);
var
  dyEdit:TEdit;
begin
  dyEdit:=TEdit.Create(Self);
  dyEdit.SetBounds(10,10,50,20);
  dyEdit.parent:=Self;
  dyEdit.Tag:=1;
end;