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

[Delphi_ProGer]

А оно и не будет. Нужно после строки

 Cancel:=True;

вручную направить браузер куда нужно, только вот как узнать адрес...я не знаю, не сталкивался с таким. Но суть вы поняли)

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

создаем новый браузер, и параметру ppDisp, присваиваем его диспатч интерфейс(это если надо в новом браузере)
можно и существующий попробовать применить.

[Exibet179]

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

AddEventLog('OnNewWindow');
// if the Webbrowser Dokument is not completely loaded, it might be a popup
if TWebbrowser(Sender).ReadyState <> READYSTATE_COMPLETE then
begin
ppDisp := nil;
Cancel := True;
end else
begin
ts := CreateTabBrowser('', 'New Browser');
WaitForBrowser(TWebbrowser(ts.Contr ols[0]));
ppdisp := (TWebbrowser(ts.Controls[0])).Application;
WaitForBrowser(TWebbrowser(ts.Contr ols[0]));
// To create a new instance of the webbrowser application:
// NewWindow := TfrmMyBrowser.Create(self);
// NewWindow.Show;
// ppDisp := NewWindow.GetCurrentWB.DefaultDispa tch;
end;

[Exibet179]

Сообщение от Пепел Феникса

создаем новый браузер, и параметру ppDisp, присваиваем его диспатч интерфейс(это если надо в новом браузере)
можно и существующий попробовать применить.

а можно на примере кода?и чтоб в существующем без добавления вкладок
большое спс