19955991
06.01.2012, 14:49
Всю голову сломал.
Подскажите пожалуйста как имитировать нажатие мышки в компоненте WebBrowser при этом чтобы курсор мышки был свободным. Например нужно в браузере нажать определенную кнопку(не мою, а сайта).
=========================================
mouse_event точно не подходит мне в данном случае
Делаю таким образом, но почему то не работает:
procedure TForm2.Button1Click(Sender: TObject);
var
test: HWnd;
begin
test:=form2.webbrowser1.Handle;
postmessage(test,WM_LBUTTONDOWN,0,(100 shl 16)+100);
postmessage(test,WM_LBUTTONUP,0,(100 shl 16)+100);
end;
P.S.Пока писал попробовал проделать тоже самое только с кнопкой, прописал координаты 1, 1 и оля ля получилось, но с браузером сколько бы я не колдовал безрезультатно((
Вот как с кнопкой проделал:
procedure TForm2.Button1Click(Sender: TObject);
var
test: HWnd;
begin
test:=form2.button1.Handle;
postmessage(test,WM_LBUTTONDOWN,0,(1 shl 16)+1);
postmessage(test,WM_LBUTTONUP,0,(1 shl 16)+1);
end;
Да и объясните пожалуйста мне вот этот кусок 0,(100 shl 16)+100 от чего именно он отчитывает, может быть я не туда тыкаю))
Подскажите пожалуйста как имитировать нажатие мышки в компоненте WebBrowser при этом чтобы курсор мышки был свободным. Например нужно в браузере нажать определенную кнопку(не мою, а сайта).
=========================================
mouse_event точно не подходит мне в данном случае
Делаю таким образом, но почему то не работает:
procedure TForm2.Button1Click(Sender: TObject);
var
test: HWnd;
begin
test:=form2.webbrowser1.Handle;
postmessage(test,WM_LBUTTONDOWN,0,(100 shl 16)+100);
postmessage(test,WM_LBUTTONUP,0,(100 shl 16)+100);
end;
P.S.Пока писал попробовал проделать тоже самое только с кнопкой, прописал координаты 1, 1 и оля ля получилось, но с браузером сколько бы я не колдовал безрезультатно((
Вот как с кнопкой проделал:
procedure TForm2.Button1Click(Sender: TObject);
var
test: HWnd;
begin
test:=form2.button1.Handle;
postmessage(test,WM_LBUTTONDOWN,0,(1 shl 16)+1);
postmessage(test,WM_LBUTTONUP,0,(1 shl 16)+1);
end;
Да и объясните пожалуйста мне вот этот кусок 0,(100 shl 16)+100 от чего именно он отчитывает, может быть я не туда тыкаю))