Показать сообщение отдельно
  #5  
Старый 10.05.2014, 17:53
Noooob Noooob вне форума
Прохожий
 
Регистрация: 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));
Ответить с цитированием