THX an alle, ich habe jetzt die Lösung gefunden!
Delphi-Quellcode:
for i:=0 to Self.ComponentCount-1 do
if (Components[i] is TIASemiPanel) then
if (Components[i] as TIASemiPanel).Name = 'semiPanel1' then begin
(Components[i] as TIASemiPanel).Color:=color1;
(Components[i] as TIASemiPanel).Color1:=color1;
end;
achja ich habe wirklich 50 Panels in meiner Anwendung
