![]() |
Dynamische Komponentennamen
Hallo,
ich brauche für einen Browser TabbedBrowsing und verwende hierfür folgenden Code:
Delphi-Quellcode:
Dies funktioniert auch soweit, aber unabhängig vom aktiven Tab wird nun immer nur der letzte erstellte Browser angesprochen.
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'); 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 |
Re: Dynamische Komponentennamen
Am besten du erzeugst dir einen Array in dem du die Referenzen ablegst oder gibst den dy. Instanzen eind. namen und verwendest .FindControl
|
Re: Dynamische Komponentennamen
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 :( |
Re: Dynamische Komponentennamen
Zitat:
Delphi-Quellcode:
TControl(Browser).Name:='Browser'+inttostr(PageControl1.TabIndex);
(form1.FindComponent('Browser'+inttostr(PageControl1.TabIndex)) as TMozillaBrowser).Navigate('www.www.de'); |
Re: Dynamische Komponentennamen
Versuch mal:
Delphi-Quellcode:
Ich würde die Lösung mit array aber vorziehen!
(PageControl1.FindComponent('Browser'+inttostr(PageControl1.TabIndex)) as TMozillaBrowser).Navigate('www.www.de');
|
Re: Dynamische Komponentennamen
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); |
Alle Zeitangaben in WEZ +1. Es ist jetzt 19:49 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz