Dynamische Komponentennamen

[snapman]

Hallo,
ich brauche für einen Browser TabbedBrowsing und verwende hierfür folgenden Code:

Delphi-Quellcode:

  Tab:= TTabSheet.Create(PageControl1);
  Tab.PageControl:= PageControl1;
  Tab.Caption:= '[Unbenannt]';
  Pagecontrol1.ActivePage:=Tab;

  Browser:= TMozillaBrowser.Create(Tab);
  TControl(Browser).Parent:= Tab;
  Browser.Navigate('about:blank');

Dies funktioniert auch soweit, aber unabhängig vom aktiven Tab wird nun immer nur der letzte erstellte Browser angesprochen.
Die Frage ist nun wie kann ich die Namen dynamisch vergeben (Browser1,Browser2), so daß ich jeweils den aktiven ansprechen kann...ihr versteht sicher mein Problem

[mkinzler]

Am besten du erzeugst dir einen Array in dem du die Referenzen ablegst oder gibst den dy. Instanzen eind. namen und verwendest .FindControl

[snapman]

Habs mal mit

[...]

TControl(Browser).Name:='Browser'+inttostr(PageCon trol1.TabIndex);
(FindComponent('Browser'+inttostr(PageControl1.Tab Index)) as TMozillaBrowser).Navigate('www.www.de');


versucht...kommt aber nur eine Access Violation

[Andreas L.]

Zitat von snapman:

Habs mal mit

[...]

TControl(Browser).Name:='Browser'+inttostr(PageCon trol1.TabIndex);
(FindComponent('Browser'+inttostr(PageControl1.Tab Index)) as TMozillaBrowser).Navigate('www.www.de');


versucht...kommt aber nur eine Access Violation

Probiers mal so:

Delphi-Quellcode:

TControl(Browser).Name:='Browser'+inttostr(PageControl1.TabIndex);
 (form1.FindComponent('Browser'+inttostr(PageControl1.TabIndex)) as TMozillaBrowser).Navigate('www.www.de');

[mkinzler]

Versuch mal:
 (PageControl1.FindComponent('Browser'+inttostr(PageControl1.TabIndex)) as TMozillaBrowser).Navigate('www.www.de'); Ich würde die Lösung mit array aber vorziehen!

[snapman]

thx erstmal an euch

das ist nun die korrekte lösung...ohne das activepage gibt es auch violation..weil parent ja dem tab gehört
(PageControl1.ActivePage.FindComponent('Browser'+i nttostr(PageControl1.TabIndex)) as TMozillaBrowser).Navigate(edit1.text);