Einzelnen Beitrag anzeigen

torud

Registriert seit: 26. Jul 2002
Ort: Sachsen
1.198 Beiträge
 
Delphi XE5 Professional
 
#2

Re: TWebbrowser dynamisch generieren und "benamsen"

  Alt 22. Mai 2008, 14:51
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;
Danke
Tom
  Mit Zitat antworten Zitat