delphi 多个TEdit获取焦点的问题
答案:4 悬赏:40 手机版
解决时间 2021-03-08 16:10
- 提问者网友：遮云壑
- 2021-03-07 22:20
窗体上有多个TEdit控件 但是他们的 获得焦点 和 离开焦点 的事件都相同，如果一个一个的写太麻烦 有没有什么办法可以解决
最佳答案
- 五星知识达人网友：有你哪都是故乡
- 2021-03-07 23:13
每个TEdit的tag分别赋不同的值
然后 case TEdit（Sender）.tag of
......
end;
然后 case TEdit（Sender）.tag of
......
end;
全部回答
- 1楼网友：忘川信使
- 2021-03-08 02:02
按住shift键全部选住，只可以直接操作获取焦点，或者离开焦点的事件
- 2楼网友：枭雄戏美人
- 2021-03-08 01:53
可以，给多个控件事件设置一个，应该会的吧？？？
按shift挨着点击控件全选中，把事件函数名在事件面板中一填就行了。
如何在这个共用事件中区分是哪个控件触发它？
if sneder = edit1 then
begin
//
end;
if sender = edit2 then
begin
//
end;
- 3楼网友：第四晚心情
- 2021-03-08 00:32
在edit1的onexit事件中进行规则验证，不符合规则就执行edit1.setfocus,焦点就不会离开了。
procedure tform1.edit1exit(sender: tobject);
begin
if trim(self.edit1.text) = '' then
begin
self.edit1.setfocus;
end;
end;
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯