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;

[torud]

Also an alle, die auch mal dieses Problem haben sollten. Ich habe nach einer weiteren Suche hier im Forum die Lösung finden können. Damit ist auch das Alignment und Parent-Problem gelöst!

Delphi-Quellcode:

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);
    TWinControl(myBrowser).Name := 'web' + inttostr(i);
    TWinControl(myBrowser).Parent := new_page;
    TWinControl(myBrowser).Align := alClient;
    myBrowser.Navigate('about:blank');
  end;

[Bernhard Geyer]

Zitat:

Zitat von torud

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

Wie wäre es die in einer eigenen List (z.B. myWebs: array of TWebBrowser) zu verwalten. Das Name-Property ist primär gedacht um DFM-Streaming und Membervariable zu synchronisieren.

Zitat:

Zitat von torud

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

Kann öfter passieren wenn ActiveX-Controls VCL-Propertynamen für was anders "mißbrauchen" einfach auf Basisklasse casten (myBrowser as TControl is m.E. schöner als ein harter Cast).

[torud]

Jo danke, ich habe schon gemerkt, dass das noch nicht der Weisheit letzter Schluss ist, denn ich konnte dann später in einer Schleife den Browser NICHT ansprechen, da er über FindComponent nicht gefunden wurde...Warum auch immer...!?

Delphi-Quellcode:

(myBrowser as TControl).Name   := 'web_' + inttostr(i);
(myBrowser as TControl).Parent := new_page;

Geht so leider nicht, da der linken Seite nicht zugewiesen werden kann...Und nun?

[Apollonius]

Hast du FindComponent auch an der Page (dem Owner) aufgerufen?

[torud]

Zitat:

Zitat von Apollonius

Hast du FindComponent auch an der Page (dem Owner) aufgerufen?

Ok, das war der Grund dafür, dass er es nicht finden konnte. Dummer Anfängerfehler!

[inherited]

Nicht unbedingt Anfängerfehler, nur nicht gewusst, dafür gibt es ja das Forum hier ;)
Schöner wäre es aber die in einem Array oder eine Liste zu verwalten.

[torud]

Dann gib mir doch bitte mal einen Tipp, wie ich das machen könnte. Ich seh nur Bahnhof, da ich Controls noch nie auf eine solche Art verwaltet habe.