如图所示,怎么在焦点获得这些按钮的caption

如图所示,如何在焦点获得这些按钮的caption



比如焦点在edit1,那就复制过去,edit2,点哪哪里焦点就获得这些caption

[解决办法]
焦点在edit1上按按扭Button1
edit1.text:=Button1.capion;
[解决办法]
焦点在edit1上按按扭Button1
edit1.text:=Button1.capion;
[解决办法]
showmessage(TButton(ActiveControl).caption);
[解决办法]

探讨

如果有edit2呢,我总不能写一堆的代码

[解决办法]
把所有的button的onclick事件共用同一个事件,比如全部关联到button1onClick上
用Tbutton(Sender).caption取得
[解决办法]
我也卡住了，继续关注中.............
[解决办法]
Self.ActiveControl 就是焦点所落在的控件上
[解决办法]
Self.ActiveControl前面说明了
[解决办法]
Tbutton(sender).caption

查看更多 下一篇