Question

Delphi sendmessage,postmessage，在timer事件中发消息，无响应。

Delphi
sendmessage,postmessage，在timer事件中发消息，无响应。
想模拟一下鼠标按下和抬起事件，用的是wm_lbuttondown,wm_lbuttonup。
做了好长时间，实在搞不懂了，我是初学者。最好能给出完整的代码。
在窗体中加 applicationevents控件也尝试了。但是没有反应，也不清楚具体怎么用。
请大神们指点呀~~~！

Answer 1

示例：

在窗口上加了一个按钮和一个定时器，按钮OnClick事件代码：

procedure TForm1.Button1Click(Sender: TObject);
begin
  Caption := Caption + '!';
end;

定时器OnTimer事件代码：

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  PostMessage(Button1.Handle, WM_LBUTTONDOWN, 0, 0);
  PostMessage(Button1.Handle, WM_LBUTTONUP, 0, 0);
end;

你试试吧，没有问题的。