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;