Ich bekomme das einfach nicht gebacken!!!! Mein bisheriger Code:
Delphi-Quellcode:
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[0] as TWebBrowser).DefaultInterface;
end;
Delphi-Quellcode:
procedure TBrowser.Button6Click(Sender: TObject);
begin
Animate1.Active := True;
(ageControl1.ActivePage.Controls[0] as TWebBrowser).Navigate(ComboBox1.text);
ComboBox1.Items.Add(ComboBox1.Text);
//<--- und hier soll nach Laden der Seite die Animation wieder
//gestoppt werden.
end;