Форум: "Начинающим";
Текущий архив: 2007.01.21;
Скачать: [xml.tar.bz2];

Вниз

Автоматичсекий переход   Найти похожие ветки 

← →
Wahnsinng ©   (2007-01-05 11:51) [0]

Подскажите пожалуйста, можно ли автоматически в WebBrowser, загрузив html страницу, перейти по ссылке?

---

← →
palva ©   (2007-01-05 20:45) [1]

http://www.activeserverpages.su/catalog.asp?what=function&id2=28&view=function&id=70

---

← →
Алхимик ©   (2007-01-06 12:43) [2]

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;


---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2007.01.21;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.064 c