Question

delphi 请问form上控件的焦点转移事件是什么，如何获取？

我是想当窗口上某个控件获得焦点时在状态栏上把这个控件的hint显示出来，而且控件很多不可能一一处理每个控件的onEnter或者OnExit事件，只用知道焦点转移触发什么消息就成，怎么实现啊？期待ing.........

Answer 1

在Type下面重新定义 Tedit = class(stdctrls.Tedit) procedure CMExit(var Message: TCMExit); message CM_EXIT;在实现部分生成 procedure Tedit.CMExit(var Message: TCMExit);begin if Trim(self.Text)<>'' then begin showmessage('输入的数据无效!'); self.SetFocus; end;end; 查看更多答案>>