Ĺadny brzuch
Mamy taką oto procedurę otwarcia nowego okna w TWebBrowser:
procedure Tepx.ep_msgsNewWindow2(ASender: TObject; var ppDisp: IDispatch; var Cancel: WordBool); var TabSheet: TTabSheet; WebBrowser: TWebBrowser; begin ep_msg_allert.show; TabSheet:= TTabSheet.Create(self); TabSheet.PageControl := tabs; WebBrowser:= TWebBrowser.Create(TabSheet); TWinControl(WebBrowser).Parent := TabSheet; WebBrowser.Align := alClient; ppDisp := Webbrowser.DefaultDispatch; WebBrowser.Show;
W skrócie tworzy ona nową zakładkę w PageControl. Chciałbym jednak, aby kopia strony oprócz na zakładce, otworzyła się również w istniejącym już innym TWebBrowser (ep_msg_allert.msg).
Próbowałem wpisać coś w tym stylu:
ppDisp := ep_msg_allert.msg.DefaultDispatch; lecz w efekcie tylko jeden z komponentów TWebBrowser odczytuje stronę...
Jak przekazać adres z jednego komponentu do drugiego, tak aby w obu pojawiła się ta sama strona?
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
procedure Tepx.ep_msgsNewWindow2(ASender: TObject; var ppDisp: IDispatch; var Cancel: WordBool); var TabSheet: TTabSheet; WebBrowser: TWebBrowser; begin ep_msg_allert.show; TabSheet:= TTabSheet.Create(self); TabSheet.PageControl := tabs; WebBrowser:= TWebBrowser.Create(TabSheet); TWinControl(WebBrowser).Parent := TabSheet; WebBrowser.Align := alClient; ppDisp := Webbrowser.DefaultDispatch; WebBrowser.Show;
W skrócie tworzy ona nową zakładkę w PageControl. Chciałbym jednak, aby kopia strony oprócz na zakładce, otworzyła się również w istniejącym już innym TWebBrowser (ep_msg_allert.msg).
Próbowałem wpisać coś w tym stylu:
ppDisp := ep_msg_allert.msg.DefaultDispatch; lecz w efekcie tylko jeden z komponentów TWebBrowser odczytuje stronę...
Jak przekazać adres z jednego komponentu do drugiego, tak aby w obu pojawiła się ta sama strona?