如何屏蔽鼠标在程序本身的消息

Question

我写了个程序,是放在桌面看的,但是在桌面做别的事情时,经常点到程序
想屏蔽这程序的鼠标按下的消息
就算在程序里按下鼠标键,也就相当于是在桌面按下鼠标键(类似IE浏览器的锁定工具栏那样)

Answer 1

以前用过，给你贴段代码
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;
  HookHandle: HHOOK = 0;implementation{$R *.dfm}function Mouse(code: integer; wParam, lParam: Longint): longint; stdcall;
begin
  Result := 1;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
  HookHandle := SetWindowsHookEx(WH_MOUSE, Mouse, HInstance, 0);
end;procedure TForm1.Button2Click(Sender: TObject);
begin
  UnhookWindowsHookEx(HookHandle);
end;end.

Answer 2

有方法了
函数声明
procedure CMMouseEnter(var msg:tmessage);message CM_MOUSEENTER;//鼠标进入窗体
procedure CMMouseLeave(var msg:tmessage);message CM_MOUSELEAVE;//鼠标离开窗体procedure TForm1.CMMouseenter(var msg:tmessage);
begin
//内容
end;
procedure TForm1.CMMouseLeave(var msg:tmessage);
begin
//内容
end;