Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.01.08;
Скачать: CL | DM;

Вниз

Перехват нажатия на ссылку в TWebBrowser   Найти похожие ветки 

 
Sirus   (2005-09-23 13:24) [0]

Привет Мастера :))
Есть вопрос: Как перехватить нажатие на ссылку в TWebBrowser, проанализировать URL ссылки и в зависимости от анализа либо пропустить ее дальше, либо отменить нажатие?
OnBeforeNavigate2 работает только если ссылка открывается в новом окне. А мне нужно отлавливать ссылки открывающиеся в других окнах.


 
Sirus   (2005-09-23 16:21) [1]

Поправка:OnBeforeNavigate2 работает только если ссылка открывается в текущем окне. А мне нужно отлавливать ссылки открывающиеся в новых окнах.


 
Sirus   (2005-09-23 16:38) [2]

Переделаем вопрос совсем по другому:
Как получить URL нового открываемого окна и закрыть это окно?


 
Delphi_is_cool ©   (2005-09-26 01:47) [3]


> Как перехватить нажатие на ссылку в TWebBrowser, проанализировать
> URL ссылки


Лови мессагу WM_RBUTTONDOWN , и далее:

var
 P: TPoint;
 Doc: IHTMLDocument2;
 Element: IHTMLElement;
begin
 P := WebBrowser1.ScreenToClient(Mouse.CursorPos);
 Doc := WebBrowser1.ControlInterface.Document as IHTMLDocument2;
 Element := Doc.elementFromPoint(P.X, P.Y);
 if Element.tagName = "A" then // проверяем был ли клик по ссылке
   MessageBox(0, PChar(Element.toString), "WB", 0); // показываем url
end;


Если что, прошу прощенья за возможные ошибки/опечатки, я прям тут накатал ...



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

Текущий архив: 2006.01.08;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.014 c
2-1134979390
AMD Andron64
2005-12-19 11:03
2006.01.08
Rar


1-1133951543
Electric
2005-12-07 13:32
2006.01.08
как правильно и быстро просканировать пиксели


8-1123180880
Ландграф Павел
2005-08-04 22:41
2006.01.08
возможно ли понизить битрейд mp3 без схемы mp3>wav>mp3


14-1134568925
VirEx
2005-12-14 17:02
2006.01.08
FoxMail - run dialup


9-1122628042
Зм1й
2005-07-29 13:07
2006.01.08
Вопрос по OpenAL