Последние записи
- Удаление папки с файлами
- Распечатка файла
- Преобразовать массив байт в вещественное число (single)
- TChromium (CEF3), сохранение изображений
- Как в Delphi XE обнулить таймер?
- Изменить цвет шрифта TextBox на форме
- Ресайз PNG без потери прозрачности
- Вывод на печать графического файла
- Взаимодействие через командную строку
- Перенести программу из Delphi в Lazarus
Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk
Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw
12th
Дек
Как программно вызвать щелчок мышью в TWebBrowser
Posted by bullvinkle under Пост-обзор
Пытаюсь функцией sendmessage (mouse_event мне не подходит) вызвать клик мышью в WebBrowser на форме.
Вот такой код:
procedure TForm1.Button4Click(Sender: TObject);
var Pt: TPoint;
begin
Pt.x := WebBrowser1.Left + (WebBrowser1.Width div 2)-300;
Pt.y := WebBrowser1.Top + (WebBrowser1.Height div 2);
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);
SendMessage(Form1.WebBrowser1.Handle, WM_LBUTTONDOWN, 0, MakeLParam(Pt.x,Pt.y));
SendMessage(Form1.WebBrowser1.Handle, WM_LBUTTONUP, 0, MakeLParam(Pt.x,Pt.y));
//PostMessage(WebBrowser1.Handle,WM_LBUTTONDOWN, MK_LBUTTON, makelong(Pt.x,Pt.Y));
//PostMessage(WebBrowser1.Handle,WM_LBUTTONUP, 0, makelong(Pt.x,Pt.Y));
end;
Если вместо Form1.WebBrowser1.Handle поставить Form1.Button3.Handle, то кнопка Button3 будет нормально нажиматься, а WebBrowser никак не реагирует (закомментированный вариант тоже не подходит).
Координаты я пробовал нулевые задавать — ничего не меняется.
Может в Interner Explorer защита от подобных действий стоит? Я уже сталкивался с тем, что в этом компоненте запрещён доступ к телу фрейма, если домен фрейма не совпадает с доменом родительского документа.
Может кто меня научит как с такими нюансами справляться?
===========================================================================
var
BrowserH:HWND;
begin
BrowserH:=Webbrowser1.handle;
PostMessage(BrowserH,WM_LBUTTONDOWN,0,XY);
PostMessage( BrowserH,WM_SETCURSOR,BrowserH,MakeLong(HTCLIENT,WM_LBUTTONDOWN));
PostMessage(BrowserH,WM_LBUTTONUP,0,XY);
PostMessage( BrowserH,WM_SETCURSOR,BrowserH,MakeLong(HTCLIENT,WM_LBUTTONUP));
end;
PS браузер может содержать внутри себя другие объекты, например SWF файлы имеют свой хендл, его вытащить тоже несложно…
Pt.x := Round(Pt.x * (65535 / Screen.Width)); Pt.y := Round(Pt.y * (65535 / Screen.Height)); |
Если в хендл тычишь, закоменти эти строки…
Похожие статьи
Купить рекламу на сайте за 1000 руб
пишите сюда - alarforum@yandex.ru
Да и по любым другим вопросам пишите на почту
пеллетные котлы
Пеллетный котел Emtas
Наши форумы по программированию:
- Форум Web программирование (веб)
- Delphi форумы
- Форумы C (Си)
- Форум .NET Frameworks (точка нет фреймворки)
- Форум Java (джава)
- Форум низкоуровневое программирование
- Форум VBA (вба)
- Форум OpenGL
- Форум DirectX
- Форум CAD проектирование
- Форум по операционным системам
- Форум Software (Софт)
- Форум Hardware (Компьютерное железо)