关于窗体的 WM_KILLFOCUS 消息？？？？？？？？？？？？

[yingshang]

关于窗体的 WM_KILLFOCUS 消息？？？？？？？？？？？？

type
TForm1 = class(TForm)
ComboBox1: TComboBox;
ComboBox2: TComboBox;
procedure FormCreate(Sender: TObject);
private
FOrigWinProc : TWndMethod;
procedure SPCMenuFrmWinProc(var Message: TMessage);
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.SPCMenuFrmWinProc(var Message: TMessage);
begin
if Message.Msg = WM_KILLFOCUS then
begin
Application.MessageBox('safsaf', 'asf', 0);
end;
FOrigWinProc(Message);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
FOrigWinProc := Self.WindowProc;
Self.WindowProc := SPCMenuFrmWinProc;
end;


全部代码如上，窗体失去焦点我却收不到WM_KILLFOCUS消息

但是，如果我窗体上不加任何控件，却可以收到，请这个咋解决？？？？？？？？？？

[kye_jufei]

WM_KILLFOCUS消息是系统直接发送到你的窗口程序的,采用的是SendMessage而不是PostMessage,不会经过消息队列,所以你在SPCMenuFrmWinProc是截获不到这两个消息的...

[yingshang]

那请问我如何拦截WM_KILLFOCUS消息呢？

[yingshang]

俺又想了想，不对啊，如果我不放任何控件，就能收到这个消息，难道这个消息是不是系统的那个？是程序又自动转发了？？？想不通啊想不通

[yingshang]

procedure FormActivateMsg(var Message: TMessage); message WM_ACTIVATE;

目前，搞了一个这个来判断，可以实现要求了，但是有一个问题：

如果失去焦点就关闭窗体的话，将会再收到一次WM_ACTIVATE消息，整的跟个死循环似的，目前通过showing来判断是否关闭窗体，但是总觉得不是很安全

难道窗体close的时候会发一个这个消息？？？？忘高人指正