TWebBrowser, відкрити посилання в тому ж вікні?
Привіт всім майстрам! використовую TWebBrowser. Виникло питання як відкрити нове вікно не в новому вікні, а в уже існуючому, в обробнику WebBrowser1NewWindow2.
Заздалегідь вдячний.
Постав собі TEmbeddedWB і не парся - у нього управління поведінкою браузера в частині навігації в поточному або новому вікні виведено в опцію UserInterfaceOptions -> ForceOpenNewWindow
Коли нитка - до нього доберусь - зараз не можу з ним розбиратися - зважаючи на обмеженість у часі - все що потрібно було - вже зробив, крім цього моменту. Скрізь описано як відкрити в новому вікні - нме ж навпаки потрібно в існуючому.
просто коли роблю
procedure TForm1.WebBrowser1NewWindow2 (Sender: TObject;
# XA0; var ppDisp: IDispatch; var Cancel: WordBool);
begin
Cancel: = True;
end;
Він взагалі нічого не відкриває.
> vegarulez # XA0; (25.10.10 10:03) [3]
>
> Просто коли роблю
>
> Procedure TForm1.WebBrowser1NewWindow2 (Sender: TObject;
> # XA0; var ppDisp: IDispatch; var Cancel: WordBool);
> begin
> Cancel: = True;
> End;
Ну, правильно кажуть постав # XA0; TEmbeddedWB, там є таке ось подія, куди потрібно вписати ось такт код:
procedure TForm1.webbrowser1NewWindow3 (ASender: TObject;
# XA0; var ppDisp: IDispatch; var Cancel: WordBool; dwFlags: Cardinal;
# XA0; const bstrUrlContext, bstrUrl: WideString);
begin
webBrowser1.Navigate (bstrUrl);
Cancel: = true;
end;
Пам'ять: 0.72 MB
Час: 0.028 c