如何捕获WM_SETFOCUS消息？(100分)

philipliu · 2001-06-05

如何捕获WM_SETFOCUS消息？

bbkxjy · 2001-06-05

TForm1 = class(TForm)   ...   protected     procedure WMSetFocus(var Msg: TWMSetFocus); message WM_SETFOCUS;   ...   end; implememtation ... procedure TForm1.WMSetFocus(var Msg: TWMSetFocus); begin   ...   //你的处理   inherited; end;

philipliu · 2001-06-05

To bbkxjy：   此法不行，不知你试过了吗？？

初学者1 · 2001-06-05

关注

philipliu · 2001-06-05

问题简单，就没人想拿分吗？？

bbkxjy · 2001-06-06

对于 form 的 WM_SETFOCUS 消息照以上是可以截获的，我试过了，还弄得死循环了，因为 我在消息中 showmessage，按确定后 form 又获得了焦点，又再次触发消息处理过程... 不知你试过了没有？还是你要捕获的是其它控件的消息而不是 Form 的？

pcexplorer · 2001-06-06

同意

philipliu · 2001-06-06

TO：bbkxjy 如果是form上的编辑框呢？都要定义每个控件的消息截获过程吗？

jennykiller · 2001-06-06

每个可视控件都有WM_SETFOCUS消息，要用谁的就写谁的．

bbkxjy · 2001-06-06

有一个办法，不用为 form 上的每一个控件写 WM_SETFOCUS 方法，但可以截获每个控件 的该消息：   TForm1 = class(TForm)     ...   public     function SetFocusedControl(Control: TWinControl): Boolean; override;     ...   end; implememtation ... function TForm1.SetFocusedControl(Control: TWinControl): Boolean; begin     //你的处理，Control 是将获得焦点的控件，若设 Result := False，   //则控件不能获得焦点   Result := inherited SetFocusedControl(Control);//缺省处理 end;

philipliu · 2001-06-06

TO bbkxjy： 那失去focus的控件呢？怎么判断？？

bbkxjy · 2001-06-07

似乎在 form 一级要截获子 WinControl 的 WM_KillFocus 消息没有很好的办法，要不照 jennykiller 的办法，要派生新类，或者你为 Application 的 OnMessage 事件写处理过程 来截获该消息吧。

philipliu · 2001-06-07

TO bbkxjy： Application 的 OnMessage 根本截不到时子 WinControl 的 WM_KillFocus 消息，还有好 办法吗？

bbkxjy · 2001-06-07

我也觉得奇怪的，在 Application 的 ProcessMessage 中设断点，总是不能截获 KillFocus 消息，但在为 Form 写的截获该消息的处理过程中设断点，中断时看 CallStack 又明明显示 ProcessMessage 已被调用，在调用栈的栈底，怎么不会先在 ProcessMessage 中的断点处中 断呢？ 如果你只想在消息发生时得到通知，可以试试用 Screen 的 OnActiveControlChange 事件。 如果要改变对消息的处理方式，可能要利用 SetWindowLong 替换所有子 WinControl 的窗口 过程或改写 StdWndProc，唉，越弄越复杂了...

puzzle · 2001-06-07

每个控件都是一个window,他有自己的WinProc,重载这个东西行不行？

mypine · 2001-06-15

Puzzle说对了，可以重载这个过程，就能够截获这个消息了！junnykiller与bbkxjy都是正确的

philipliu · 2002-11-14

放分啦！

如何捕获WM_SETFOCUS消息？(100分)

philipliu

Unregistered / Unconfirmed

bbkxjy

Unregistered / Unconfirmed

philipliu

Unregistered / Unconfirmed

初学者1

Unregistered / Unconfirmed

philipliu

Unregistered / Unconfirmed

bbkxjy

Unregistered / Unconfirmed

pcexplorer

Unregistered / Unconfirmed

philipliu

Unregistered / Unconfirmed

jennykiller

Unregistered / Unconfirmed

bbkxjy

Unregistered / Unconfirmed

philipliu

Unregistered / Unconfirmed

bbkxjy

Unregistered / Unconfirmed

philipliu

Unregistered / Unconfirmed

bbkxjy

Unregistered / Unconfirmed

puzzle

Unregistered / Unconfirmed

mypine

Unregistered / Unconfirmed

philipliu

Unregistered / Unconfirmed

Similar threads