Как в браузере(на делфи) вывести адрес сайта в мемо и едит

[Exibet179]

Доброго всем времени суток. Пишу браузер, столкнулся с проблемой как вывести адрес сайта на котором находишься в едит и мемо. Заранее спс

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

скорее вы пользуетесь IE.
WebBrowser.URL если не путаю.

[Alex2009]

Если не ошибаюсь то не

WebBrowser.URL

а

WebBrowser.URL.URI;

[Exibet179]

не катит или я чет не так делаю =(

procedure TfrmMyBrowser.ToolButton3Click(Send er: TObject);
var
a , b : string;
begin
a:=WebBrowser1.URL;
Memo1.Lines.Add(a);
end;

[Alex2009]

Вот возьмите.

var
  a , b : string;
begin
  a:=WebBrowser1.LocationURL;
  Memo1.Lines.Add(a);

[Exibet179]

а можно чтоб копировало само при смене адреса не нажимая кнопку.
спс что откликнулись и помогли....

[BDA]

procedure TForm1.WebBrowser1NavigateComplete2(ASender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
  Memo1.Lines.Add(URL)
end;

Задайте событие OnNavigateComplete2 у WebBrowser в инспекторе объектов.

[Exibet179]

спасибо всем!!!!!!
еще один вопросик и тему можно закрывать.
А как сделать чтобы браузер все сайты открывал через себя а то лезет еще иногда через експлоер инет.

[Delphi_ProGer]

Сообщение от Exibet179

спасибо всем!!!!!!
еще один вопросик и тему можно закрывать.
А как сделать чтобы браузер все сайты открывал через себя а то лезет еще иногда через експлоер инет.

procedure TForm1.WebBrowser1NewWindow2(Sender: TObject;
  var ppDisp: IDispatch; var Cancel: WordBool);
begin
  Cancel:=True; // запрещаем открывать новые окна
end;

[Exibet179]

Сообщение от Delphi_ProGer

procedure TForm1.WebBrowser1NewWindow2(Sender: TObject;
  var ppDisp: IDispatch; var Cancel: WordBool);
begin
  Cancel:=True; // запрещаем открывать новые окна
end;

сделал так но теперь ссылки с яндекса не хочет открывать(они там через поиск автоматом в новое окно бросаются)