Имитация клика мыши

[Nub]

Меня тоже очень интересует данный вопрос. Возможно, ТС уже нашёл решение - тогда просьба к нему - опубликовать. Если нет - просто апну топик.

UPD.

Вот что получилось у меня:

procedure TForm1.Button1Click(Sender: TObject);
var
Pt: TPoint;
left,top:integer;
begin
left:=strtoint(Edit1.Text);
top:=strtoint(Edit2.Text);
Application.ProcessMessages;
Pt.x := Form2.WebBrowser1.Left + left;
Pt.y := Form2.WebBrowser1.Top + top;
Pt := ClientToScreen(Pt);
Pt.x := Round(Pt.x * (65535 / Screen.Width));
Pt.y := Round(Pt.y * (65535 / Screen.Height));
Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_MOVE, Pt.x, Pt.y, 0, 0);
Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTDOWN, Pt.x, Pt.y, 0, 0);
Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTUP, Pt.x, Pt.y, 0, 0);


end;

Работает. Left - расстояние слева, top - сверху.