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

[lijinjie]

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

[grail_]

没明白

[ehom]

SendMessage(Handle,BM_CLICK,0,0);

或

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

[lijinjie]

这个我知道。我要的是不需要句柄的。。就是说，程序运行后，鼠标都是处于双击状态，移到什么上就双击什么。

[ehom]

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;

[lijinjie]

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

[lijinjie]

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

[idilent]

在onmouseover中调用onclick事件，

[lijinjie]

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

[lijinjie]

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

[DJ_KK]

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

[ehom]

在你想开始实现这种效果的前执行即可

Application.OnMessage:=ApplicationMessage;
什么意思呢?

知道Application是什么吗?给它指定窗体消息处理函数!

消息是什么都不清楚,还需要继续努力!多多阅读VCL、MFC中的代码,MSDN是最好的资料！

我认为我已经说的很清楚了！

示例：

unit Unit1;

interface

uses
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.

[lijinjie]

十分感谢，我会努力的。

[2312]

up