Forum: Object-Pascal / Delphi-Language
Delphi
by mlspider,
22. Mär 2005
Hy toms,
Auf diese Idee muß man erst mal kommen. So muß es ja funktionieren.
Danke
Forum: Object-Pascal / Delphi-Language
Delphi
by mlspider,
22. Mär 2005
Ich bekomme das einfach nicht gebacken!!!! Mein bisheriger Code:
procedure TBrowser.NewWindow(Sender: TObject;var ppDisp: IDispatch; var Cancel: WordBool);
var
Tabsheet: TTabsheet;
Browser: TWebBrowser;
begin
Button1Click(nil);
TabSheet:= PageControl1.ActivePage;
ppDisp:= (PageControl1.ActivePage.Controls as TWebBrowser).DefaultInterface;
Forum: Object-Pascal / Delphi-Language
Delphi
by mlspider,
22. Mär 2005
Toll, leider habe ich keinen Ansatz. Könnte mir folgendes vorstellen:
(ADVPageControl1.ActivePage.Controls as TWebBrowser).OnDownloadComplete :=Animate1.Active:=False;
Das führt aber logischerweise zu einem Fehler.
Trotzdem Danke, Luckie