怎么向系统发送一个鼠标单击的消息啊。[模拟鼠标单击]

Question

怎么向系统发送一个鼠标单击的消息啊。[模拟鼠标单击]

Answer 1

SendMessage(Handle,BM_CLICK,0,0);或SendMessage(Handle,WM_LBUTTONDOWN,0,0);
SendMessage(Handle,WM_LBUTTONUP,0,0);

Answer 2

var Hwd: Longint;//全局变量Application.OnMessage:=ApplicationMessage(var Msg: tagMSG;
  var Handled: Boolean);//程序开始时执行procedure TForm1.ApplicationMessage(var Msg: tagMSG;
  var Handled: Boolean);
begin
  if (Msg.message=WM_MOUSEMOVE) and (Hwd<>Msg.hwnd) then
  begin
    Hwd:=Msg.hwnd;
    SendMessage(Hwd,WM_LBUTTONDOWN,0,0);
    SendMessage(Hwd,WM_LBUTTONUP,0,0);
  end;
end;

Answer 3

Application.OnMessage:=ApplicationMessage(var Msg: tagMSG;
  var Handled: Boolean);//程序开始时执行
--------------------------------------------------------------
这句语句放在那里？

Answer 4

能否给我一个完整的例程，发到我的信箱里
[email protected]
QQ;67260745
-------------------
十分感谢。我对在delphi中处理系统消息还是不是很了解。

Answer 5

在onmouseover中调用onclick事件，

Answer 6

能否发一个完整的例程。
我的电子信箱：[email protected]
QQ：67260745
---------------
十分感谢，我对在delphi中处理系统消息不是很了解；还不太懂。不知道你有没有windows消息，比如：WM_LBUTTONUP 这些是什么意思的有什么用的说明啊》。。给我一份好吗。。分数不够可以加的。

Answer 7

idilent(说错了别怪我)不知道所云。

Answer 8

你在编码框里按住ctrl点WM_LBUTTONUP就有他的说明了

Answer 9

在你想开始实现这种效果的前执行即可Application.OnMessage:=ApplicationMessage;
什么意思呢?知道Application是什么吗?给它指定窗体消息处理函数!消息是什么都不清楚,还需要继续努力!多多阅读VCL、MFC中的代码,MSDN是最好的资料！我认为我已经说的很清楚了！示例：unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  public
    procedure ApplicationMessage(var Msg: tagMSG;var Handled: Boolean);
  end;var
  Form1: TForm1;
  Hwd: Longint;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage('Click');
end;procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnMessage:=ApplicationMessage;
end;procedure TForm1.ApplicationMessage(var Msg: tagMSG;
  var Handled: Boolean);
begin
  if (Msg.message=WM_MOUSEMOVE) and (Hwd<>Msg.hwnd) then
  begin
    Hwd:=Msg.hwnd;
    SendMessage(Hwd,WM_LBUTTONDOWN,0,0);
    SendMessage(Hwd,WM_LBUTTONUP,0,0);
  end;
end;end.