
10.05.2014, 17:53
|
Прохожий
|
|
Регистрация: 24.12.2013
Сообщения: 38
Версия Delphi: Delphi 7
Репутация: 10
|
|
SendMessage не делает клик в WebBrowser1. Вот код
Код:
PostMessage(Form1.WebBrowser1.Handle,WM_LBUTTONDOWN,0,(i shl 16)+j+Screen.Height-Form1.Height);
PostMessage(Form1.WebBrowser1.Handle,WM_SETCURSOR,Form1.WebBrowser1.Handle,MakeLong(HTCLIENT,WM_LBUTTONDOWN));
PostMessage(Form1.WebBrowser1.Handle,WM_LBUTTONUP,0,(i shl 16)+j+Screen.Height-Form1.Height);
PostMessage( Form1.WebBrowser1.Handle,WM_SETCURSOR,Form1.WebBrowser1.Handle,MakeLong(HTCLIENT,WM_LBUTTONUP));
|