procedure TForm1.WebBrowser1BeforeNavigate2(Sender: TObject;
const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
Headers: OleVariant; var Cancel: WordBool);
var myurl:string;
begin
myurl:=url;
if myurl='лалала' then //если ссылка та, которую нужно подменить, то
begin
cancel:=true;
webbrowser1.Navigate('ляляля');//переходим на нужную тебе ссылку
end;
end;
Как работает BeforeNavigate2?
Пишу прогу на Delphi 7, нужно в TWebBrowser'е отлавливать клики на ссылки. Делаю это так: в событии BeforeNavigate2 узнаю, по какому адресу сейчас пойдёт браузер (все ссылки на странице - это ссылки на якоря), дык вот, по названию якоря я формирую в BeforeNavigate2 ссылку на нужную страницу и этот сформированный адрес пихаю в свойство URL. Вроде всё должно работать: браузер должен переходить по сформированному мной адресу... Ан нет!! Он остаётся на той же странице!!! Что делать??!
А она, собака, не работает...
Есть ещё вариант, что у меня просто руки не оттуда растут...
Собственно, чтобы прояснить этот вопрос, я и написал сюда, надеелся, что мне подскажут...
А твоё [QUOTE=Ihbif17]Как можно использовать Какую либо процедуру или функцию... не зная как она работает?[/QUOTE] ну прям ваще никак вопрос не прояснило...
Зачем ты это писал, остаётся загадкой...
попробуй вот так:
Код:
это сработает(100%), но, скорее всего, есть способ получше.
хоть и корявое решение, но всё равно спасибо, что оказал содействие))