1个窗体上有很多TEDIT,我想所有的TEDIT共用一个EXIT事件(自己写)，如何写

Question

例如
procedure frm.
beinMyEditExit(Sender);if sender.classname = 'TEdit' then..编译提示MYEDIT  不是窗体上的控件，

Answer 1

声明:
    procedure MyEditExit(Sender:TObject);
实现:
procedure TForm1.MyEditExit(Sender: TObject);
begin
  if Sender is TEdit then
  begin
    TEdit(Sender).Text:='离开了哦';
  end;
end;使用:
procedure TForm1.Button2Click(Sender: TObject);
var
  I:Integer;
begin
  for  I:=0 to ComponentCount-1 do
  begin
    if Components[I] is TEdit then
    begin
      TEdit(Components[I]).OnExit:=MyEditExit;
    end;
  end;
end;

Answer 2

直接点控件 先生成1个 OnExit 事件。
然后选中所有EDIT ，查看  object inspector -> events -> onexit 全部设置为那一个OnExit事件就可以了。

Answer 3

mastersky(浪)会更合适。
haoshuaioo((つ＾з＾)つ)，以后的维护量较大。