Текущий архив: 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.013 c
