TWebbrowser dynamisch generieren und "benamsen"...Wie?

[torud]

Hallo Wissende,

ich schreibe gerade an einem kleinen Generator. In diesem kann der user die Anzahl der zu generierenden Seiten angeben. Ich erzeuge dann dynamisch in einem PageControl die Tabs und auf den Tabs dann jeweils eine Webbrowser-Komponente. Nun habe ich aber feststellen müssen, dass man der erzeugten Komponente keinen eigenen Namen geben kann.

Wie kann ich dann diese Komponente ansprechen, wenn ich nicht weiss wie sie heisst?

Den Parent kann man auch nicht so recht zuweisen. Da scheint alles irgendwie anders zu funktionieren, als bei Standardkomponenten.

Desweiteren ist es so, dass ich zwar im Code sagen kann, dass der Webbrowser alClient sein soll, aber er ignoriert dies leider, so dass ich die Grösse manuell setzen muss. Hat das alles einen Grund?

Hier mal mein Code, mit dem ich den Spass derzeit erzeuge:

Delphi-Quellcode:

with pg_preview do
  Begin
    for i := 1 to int_page_count do
      begin
        new_page := TAdvOfficePage.Create(pg_preview);
        new_page.Parent := pg_preview;
        new_page.Caption := siLang1.GetText('str_preview_page') + ' ' + inttostr(i);
        AddAdvPage(new_page);
        myBrowser := TWebBrowser.Create(new_page);
        //myBrowser.Name := nicht zulässig
        myBrowser.Align := alClient; //funzt leider auch nicht
        myBrowser.ParentWindow := new_page.Handle;
        myBrowser.Width := new_page.Width;
        myBrowser.Height:= new_page.Height;
        myBrowser.Navigate('about:blank');
      end;
  end;