Mein Versuch bringt das Programm zum Abtsürzen. Habt ihr einen Tipp?
Code: Alles auswählen
TTabSheet(FindComponent(PageControl1.ActivePage.Caption)).Caption:='Active';
Christian
Code: Alles auswählen
TTabSheet(FindComponent(PageControl1.ActivePage.Caption)).Caption:='Active';
Code: Alles auswählen
PageControl1.ActivePage.Caption:='Active';