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

[Anfall]

Использую компонент браузера. Там флэш приложение. Надо каким-то образом нажать на кнопку в этой флешке. При том, относительно формы кнопка всегда будет в одном и том же положении (допустим x:200 y:300). Как такое сделать?

Заранее благодарен.

[Пепел Феникса]

относительно формы иль относительно края компонента?
как посылать нажатия мыши на форуме примеров...ну уйма.

[Anfall]

И относительно формы и относительно компонента одинаково. Просто суть в том, что пользователь не должен ничего заметить. Т е пользователь должен нормально продолжать работать, а не смотреть как курсор передвинулся. И можно ли это реализовать, если форма невидима/свернута?

[Пепел Феникса]

смотрите примеры на PostMessage а не на mouse_event
можно.

[Anfall]

Сообщение от Пепел Феникса

смотрите примеры на PostMessage а не на mouse_event
можно.

Спс. Погуглил. Ничего толкового и относящегося по теме не нашел. Вроде операция-то простая. Просто надо "как бы" кликнуть в определенную точку на форме.

[raxp]

>>> тырк.

[Пепел Феникса]

procedure ClickOnControl(HWND:THandle;xPos,yPos:word);
begin
 PostMessage(HWND,WM_LBUTTONDOWN,0,(yPos shl 16)+xPos);
 PostMessage(HWND,WM_LBUTTONUP,0,(yPos shl 16)+xPos);
end;

[Anfall]

Сообщение от Пепел Феникса

procedure ClickOnControl(HWND:THandle;xPos,yPos:word);
begin
 PostMessage(HWND,WM_LBUTTONDOWN,0,(yPos shl 16)+xPos);
 PostMessage(HWND,WM_LBUTTONUP,0,(yPos shl 16)+xPos);
end;

Сообщение от raxp

>>> тырк.

Спс. То что надо. Но почему-то не работает. Не могли бы вы написать код, чтобы по нажатию на кнопку происходил клик по форме X:1000 Y:100. Не получается и все.

Пробовал делать так

procedure TForm1.Button2Click(Sender: TObject);
begin
 SendMessage(Application.Handle,WM_LBUTTONDOWN,0,(100 shl 16)+100);
end;

[russian-stalker]

о боже.
Тема уже обсуждалась сто раз. Есть ссылки внизу, да и поиск никто не отменял.

[Anfall]

Сообщение от russian-stalker

о боже.
Тема уже обсуждалась сто раз. Есть ссылки внизу, да и поиск никто не отменял.

Если вы знаете, в чем ошибка, то лучше помогите. Поиском пользоваться умею. Из всего что насерчил вышло -- (код выше).