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


MyEditExit(Sender);

if sender.classname = 'TEdit ' then..

编译提示MYEDIT 不是窗体上的控件，

[解决办法]
声明:
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;

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