delphi 多个TEdit获取焦点的问题

窗体上有多个TEdit控件 但是他们的 获得焦点 和 离开焦点 的事件都相同，如果一个一个的写太麻烦 有没有什么办法可以解决

每个TEdit的tag分别赋不同的值
然后 case TEdit（Sender）.tag of
......
end;

按住shift键全部选住，只可以直接操作获取焦点，或者离开焦点的事件

可以，给多个控件事件设置一个，应该会的吧？？？ 按shift挨着点击控件全选中，把事件函数名在事件面板中一填就行了。 如何在这个共用事件中区分是哪个控件触发它？ if sneder = edit1 then begin // end; if sender = edit2 then begin // end;

在edit1的onexit事件中进行规则验证，不符合规则就执行edit1.setfocus,焦点就不会离开了。 procedure tform1.edit1exit(sender: tobject); begin if trim(self.edit1.text) = '' then begin self.edit1.setfocus; end; end;