如何模拟鼠标点击屏幕的某区域？

Question

用sendmessage发送消息试试？？具体消息类型需要看你需要模拟点击什么控件了！

Answer 1

截获wm_nchittest消息,改写它的参数,然后inherited;

Answer 2

q3ares(血人偶)　：能否给一段示范程序？
我是初学者

Answer 3

鼠标自动点击的例子
procedure TForm1.Button1Click(Sender: TObject);
var
 x,y:integer;
begin
x:= form1.Left+button2.Left+25;
y:= top+button2.Top+27;
SetCursorPos(x,y);
Mouse_Event(MOUSEEVENTF_LEFTDOWN,X,Y,0,0);
Mouse_Event(MOUSEEVENTF_LEFTUP,X,Y,0,0);
end;procedure TForm1.Button2Click(Sender: TObject);
begin
  showmessage('fksj');
end;