Автоматическое добавление ссылки в TWebBrowser..

[sxcine]

день добрый..
при нажатии разных ссылок в компоненте надо что бы браузер не переходил на выбранную ссылку, а добавлял к той ссылке в конец текст, к примеру :
ссылка на каком-нибудь сайте - mail.ru;
при нажатии на неё надо переходить на mail.ru/aaa;
вместо aaa будет разный текст.
Как такое реализовать ?

[sxcine]

и вообще реально ли такое реализовать ?

[grafgrial]

Непонятно вы нажимаете на ссылку и дальнейшие действия не понятны: в первом случае пишите не переходит а пишет, в другом вы пишите что переходит

[sxcine]

загружена некая страница в компонент.
в ней есть ссылка, к примеру mail.ru
если просто нажать на неё, то, как и должно, загрузится сайт mail.ru..
а мне надо, если нажму на эту ссылку, перейти на mail.ru/aaa.

[Пепел Феникса]

событие OnBeforeNavigate2(или без двойки точно не помню) посмотрите.

[grafgrial]

как то так, под рукой компилятора нет. Не могу проверить, но точно в эту сторону копать

procedure TForm1.WebBrowser1BeforeNavigate2(Sender: TObject;
const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
Headers: OleVariant; var Cancel: WordBool);
var aaa: string; // ваша переменная, что хотите добавить
begin
WebBrowser2.Navigate(URL+'/'+aaa);
end;

[sxcine]

перед загрузкой страницы выходит ошибка
Stack overflow..
И приложение закрывается с фатальной ошибкой..

[WhiteSpirit]

Естественно, программа каждый раз будет добавлять строку в конец адреса. Надо ввести доп. переменную:

var NavEnable: Boolean = True;

а потом вот так:

procedure TForm1.WebBrowser1BeforeNavigate2(Sender: TObject;
  const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
  Headers: OleVariant; var Cancel: WordBool);
begin
if NavEnable then begin
    NavEnable:=False;
    Cancel:=True;
    WebBrowser1.Navigate(URL + 'forum');
    end;
end;

и после окончания загрузки опять устанавливать переменную

procedure TForm1.WebBrowser1NavigateComplete2(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
NavEnable:=True;
end;

[sxcine]

WhiteSpirit, спасибо. выручили)