| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Автоматичсекий переход
Wahnsinng © (2007-01-05 11:51:00)Подскажите пожалуйста, можно ли автоматически в WebBrowser, загрузив html страницу, перейти по ссылке?
Алхимик (2007-01-06 12:43:00) [1]http://www.sources.ru/delphi/delphi_twebbrowser_faq.shtml
http://www.rsdn.ru/article/Delphi/AdvancedTWebBrowser.xml
Или просто щелкаем мышой по координатам ссылки:
procedure TfrmMain.MouseClick(X, Y: integer);
var
Pt: TPoint;
begin
{смещение WebBrowser1}
Pt.x := X + WebBrowser1.Left;
Pt.y := Y + WebBrowser1.Top;
{Преобразуем Pt к координатам экрана}
Pt := ClientToScreen(Pt);
{Преобразуем 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);
{Имитируем нажатие левой кнопки мыши}
Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTDOWN, Pt.x, Pt.y, 0, 0);
{Имитируем "отжатие" левой кнопки мыши}
Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTUP, Pt.x, Pt.y, 0, 0);
end;
palva (2007-01-05 20:45:00) [2]http://www.activeserverpages.su/catalog.asp?what=function&id2=28&view=function&id=70
| |
