如何從TEDit繼丞 問題

Question

在TEDit 中的 OnEnter事件中 寫入 color:=ClYellow
             OnExit事件中 寫入 color:=ClWindow現在每個TEDit 中都要寫可不可以從TEDit繼丞 產生一組件包括以上功能。
好像OnEnter 是 TWincontrol 中定義的，如何去實現以上功能！

Answer 1

1.继承TEdit写一个组件
TMyEdit = class(TEdit)
private
  procedure CMExit(var Message: TCMExit); message CM_EXIT;
end;
implementation
 procedure TMyEdit.CMExit(var Message: TCMExit); message CM_EXIT; 
 begin
   color:=ClWindow;   
 end; 2.在一个TEdit的onExit事件里面写好选择其它Edit组件，在事件栏的onExit事件里面选择刚刚写的onExit事件。这些只需要写一次事件

Answer 2

补充楼上
TMyEdit = class(TEdit)
private
  procedure CMExit(var Message: TCMExit); message CM_EXIT;
  procedure CMEnter(var Message: TCMEnter); message CM_Enter;
end;
implementation
 procedure TMyEdit.CMExit(var Message: TCMExit); message CM_EXIT; 
 begin
   self.color:=ClWindow;   
 end; 
 procedure TMyEdit.CMEnter(var Message: TCMEnter); message CM_Enter; 
 begin
   self.color:=ClYellow;   
 end;