我想知道失去焦点的是谁，应该拦windows的哪个消息？(200分)

WoDing · 2004-02-27

当焦点在控件之间进行切换时会产生哪个消息？ 我首先要捕捉这个消息，并要通过这个消息得到失焦的控件名。

weiwei81123 · 2004-02-27

WM_KILLFOCUS

qince · 2004-02-27

WM_KILLFOCUS Notification -------------------------------------------------------------------------------- The WM_KILLFOCUS message is sent to a window immediately before it loses the keyboard focus. Syntax WM_KILLFOCUS     WPARAM wParam     LPARAM lParam;     Parameters wParam Handle to the window that receives the keyboard focus. This parameter can be NULL. lParam This parameter is not used. Return Value An application should return zero if it processes this message. Remarks If an application is displaying a caret, the caret should be destroyed at this point. While processing this message, do not make any function calls that display or activate a window. This causes the thread to yield control and can cause the application to stop responding to messages. For more information, see Message Deadlocks. Notification Requirements Minimum DLL Version None Header Declared in Winuser.h, include Windows.h Minimum operating systems Windows 95, Windows NT 3.1 See Also Keyboard Input Overview, SetFocus, WM_SETFOCUS -------------------------------------------------------------------------------- ? 2003 Microsoft Corporation. All rights reserved.

WoDing · 2004-02-27

weiwei81123,好像不太满足我的要求，这个好像要重新定义一个类。 而我要的是这种形式的：     procedure wmkillfocus(var msg:twmkillfocus);message wm_killfocus;     { Public declarations }   end; var   Form1: TForm1; implementation {$R *.dfm}  procedure tForm1.wmkillfocus(var msg:twmkillfocus);  begin    showmessage('');  end; end. 而我这样写好像只能在form失焦的情况下才会触发!

liuchengr · 2004-02-27

lcy 14:42:29 你试试onEnter和OnExit事件，消息我没研究过 郭大路 14:44:16 用ONEXIT要在每一个控件中写，有点麻烦，因为每个控件的ONEXIT里就有输入检测的代码，又不能公用一个 lcy 14:46:32 你控件的Tag属性不会用到吧 lcy 14:50:03 将所有控件的OnExit事件指针保存到Tag属性中，在你写的OnExit函数执行完之前，判断一下Tag，如果非0的话，就运行TNotifyEvent（Tag）(Sender)就可以了 lcy 14:50:47 就是在他们的事件前插入你的事件，在你的事件代码中再调用他们的事件

东兰梦舞 · 2004-02-27

不用拦windows消息，以下程序可以满足你的要求。 unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls; type   TForm1 = class(TForm)     Edit1: TEdit;     Edit2: TEdit;     Edit3: TEdit;     ListBox1: TListBox;   private     FLastActive: TWinControl;   public     procedure ActiveChanged; override;   end; var   Form1: TForm1; implementation {$R *.dfm} procedure TForm1.ActiveChanged; begin   inherited;   if Assigned(FLastActive) then     ListBox1.Items.Append(FLastActive.Name);   FLastActive := ActiveControl; end; end.

品梅小哥 · 2004-02-27

这个在Events列表里面的OnEnter 和OnExit函数里面就可以实现的啊 就是得到控件的焦点和逝去焦点函数

savetime · 2004-02-27

我采用 Application.OnMessage 事件来截取 WM_KILLFOCUS，但是无效？ 可是我又能在 Spy++ 中看到 WM_KILLFOCUS，是哪里写错了？ 主程序段：   Application.Initialize;   Application.CreateForm(TForm1, Form1);   Application.OnMessage := Form1.MyOnMessage;   Application.Run; 消息处理段： procedure TForm1.MyOnMessage(var Msg: TMsg; var Handled: Boolean); var   CurrControl: TWinControl; begin   if Msg.message = WM_KILLFOCUS then   begin     CurrControl := FindControl(Msg.hwnd);     if CurrControl <> nil then       ShowMessage(CurrControl.Name);   end;   Handled := False; // 可以删除此句 end;

qince · 2004-02-27

to savetime：     你这样写，岂不所有其他消息就完了？[

]

savetime · 2004-02-27

to qince, 这样只是应用程序的效率降低了，对其他消息有什么影响吗？ 我是奇怪为什么拦截不到 WM_KILLFOCUS，但能在 SPY++ 中看到。

品梅小哥 · 2004-02-27

你前面的截获WM_KILLFOCUS的处理方法只能收到窗口失去焦点情况下的消息是很正常的 因为这个窗体上每个控件接收和发送的句柄不是主窗口,而是控件,所以你可以试试看 用GetMessage,PeekMessage然后再判断消息的发送窗口,要么就是用钩子钩出你想要的消息

东兰梦舞 · 2004-02-27

简单的问题非要消息消息的，是不是沾了消息程序就高级点？[

]

WoDing · 2004-02-27

to 品梅小哥,用ONEXIT要在每一个控件中写，有点麻烦，因为每个控件的ONEXIT里就有输入检测的代码，又不能公用一个

WoDing · 2004-02-27

东兰梦舞,我是菜鸟当然想用更简单的方法撤。

savetime · 2004-02-27

to 东兰梦舞, 我测试你的方法只能在按 TAB 键切换时有效，如果直接用鼠标点击就不行。

品梅小哥 · 2004-02-27

为什么不能公用一个?只要空间可以拥有焦点,一般情况下都有对应的焦点处理函数 在Events列里面都有OnExit函数啊,你把所有的Onexit指定到一个应该可以的啊

品梅小哥 · 2004-02-27

我刚用了几个常用的,只要后面有OnExit处理函数的都可以指定到同一个啊

savetime · 2004-02-27

to 品梅小哥, Application.OnMessage 是拦截所有发给应用程序的消息，包括控件的消息。 控件的 WM_KEYDOWN WM_PAINT 都能拦截到，就是不能拦截 WM_KILLFOCUS？

qince · 2004-02-27

unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls; type   TForm1 = class(TForm)     Edit1: TEdit;     Edit2: TEdit;     Edit3: TEdit;     Edit4: TEdit;     Button1: TButton;     Button2: TButton;     procedure ObjectExit(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end; var   Form1: TForm1; implementation {$R *.dfm} procedure TForm1.ObjectExit(Sender: TObject); begin   if (Sender is TButton) then     ShowMessage((Sender as TButton).Caption + ' losted focus!');   if (Sender is TEdit) then     ShowMessage((Sender as TEdit).Name + ' losted focus!');   // 你可以继续添加其它对象 end; end. 窗体： object Form1: TForm1   Left = 294   Top = 103   Width = 696   Height = 480   Caption = 'Form1'   Color = clBtnFace   Font.Charset = DEFAULT_CHARSET   Font.Color = clWindowText   Font.Height = -11   Font.Name = 'MS Sans Serif'   Font.Style = []   OldCreateOrder = False   PixelsPerInch = 96   TextHeight = 13   object Edit1: TEdit     Left = 128     Top = 56     Width = 121     Height = 21     TabOrder = 0     Text = 'Edit1'     OnExit = ObjectExit   end   object Edit2: TEdit     Left = 128     Top = 96     Width = 121     Height = 21     TabOrder = 1     Text = 'Edit2'     OnExit = ObjectExit   end   object Edit3: TEdit     Left = 128     Top = 128     Width = 121     Height = 21     TabOrder = 2     Text = 'Edit3'     OnExit = ObjectExit   end   object Edit4: TEdit     Left = 128     Top = 160     Width = 121     Height = 21     TabOrder = 3     Text = 'Edit4'     OnExit = ObjectExit   end   object Button1: TButton     Left = 128     Top = 216     Width = 75     Height = 25     Caption = 'Button1'     TabOrder = 4     OnExit = ObjectExit   end   object Button2: TButton     Left = 128     Top = 256     Width = 75     Height = 25     Caption = 'Button2'     TabOrder = 5     OnExit = ObjectExit   end end

WoDing · 2004-02-27

因为我的ONEXIT本来就有检测输入合法的代码，除非再显式的调用一个公用过程,发帖子就是不想显式的调用，看看有没有其它的方法。 to 东兰梦舞, 我也是这样，我还认为是自己什么地方错了。：) to ALL,谢谢大家! 请继续

我想知道失去焦点的是谁，应该拦windows的哪个消息？(200分)

WoDing

Unregistered / Unconfirmed

weiwei81123

Unregistered / Unconfirmed

qince

Unregistered / Unconfirmed

WoDing

Unregistered / Unconfirmed

liuchengr

Unregistered / Unconfirmed

东兰梦舞

Unregistered / Unconfirmed

品梅小哥

Unregistered / Unconfirmed

savetime

Unregistered / Unconfirmed

qince

Unregistered / Unconfirmed

savetime

Unregistered / Unconfirmed

品梅小哥

Unregistered / Unconfirmed

东兰梦舞

Unregistered / Unconfirmed

WoDing

Unregistered / Unconfirmed

WoDing

Unregistered / Unconfirmed

savetime

Unregistered / Unconfirmed

品梅小哥

Unregistered / Unconfirmed

品梅小哥

Unregistered / Unconfirmed

savetime

Unregistered / Unconfirmed

qince

Unregistered / Unconfirmed

WoDing

Unregistered / Unconfirmed

Similar threads