wunderbar =)
vielen Dank Uwe, der Beitrag hat mir den passenden Denkanstoß gegeben.
Lösung: Die Panel die unten stehn sollen als erstes ausblenden und umgekehrt wieder einblenden.
Delphi-Quellcode:
//CategoryPanels ausblenden
CP_f_Artikel.visible := false; //4
CP_B_Artikel.visible := false; //3
(FindComponent('CP_Einleitung_'+Profil) as TCategoryPanel).visible := false;//2
(FindComponent('CP_Header_'+Profil) as TCategoryPanel).visible := false; //1
//Neues Profil übernehmen
Profil := tb.Hint;
// CategoryPanels einblenden
(FindComponent('CP_Header_'+Profil) as TCategoryPanel).visible := true; //1
(FindComponent('CP_Einleitung_'+Profil) as TCategoryPanel).visible := true; //2
CP_B_Artikel.visible := true; //3
CP_f_Artikel.visible := true; //4