DELPHI如何捕获鼠标在本窗体以外范围的点击件事？

[andylist]

如题。
主要目的是，当鼠标在本窗体以外的任意范围外点了左键或右键，即关闭本窗口。

[Lactoferrin]

处理WM_CAPTURECHANGED

[ccrun.com]

全局鼠标钩子笑而不语中。

[爱蹄子的羊头]

做一个 dll 用来hook。。

[jet_piolet]

鼠标消息钩子啊

[无条件为你]

没必要用钩子，你在窗体失去焦点事件中写一句close即可。

[无条件为你]

楼主现在做delphi的已经不多了，你只给这点分显然是对问题不重要，我回答 的动力都没有了。

算了，不跟你计较了，代码如下：



unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls;

type
TForm1 = class(TForm)
//声明处：
procedure MyProcessMsg( var message:TWMACTIVATEAPP); message WM_ACTIVATEAPP;
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.MyProcessMsg(var message: TWMACTIVATEAPP);
begin
if Message.Active=False then close;
end;

end.

[andylist]

楼上的朋友，不是不重视问题，是实在不够用。
谢谢你的回答！

[nm_wyh]

[Quote=引用 5 楼 mwy654321 的回复:]
没必要用钩子，你在窗体失去焦点事件中写一句close即可。
[/Quote]
只要失去焦点就可以关闭窗体了！