Also, ich hab ein Problem von dem ich nichts so genau weiß wie ich's beschrieben soll, deshalb war ich auch beim Suchen erfolglos.
Es geht um folgendes:
Ich möchte Attribute für verschiedene Komponenten auf meiner Form1 dynamisch ändern (also nicht einmal Einstellen und fertig). Die Informationen dazu werden aus einer XML Datei ausgelesen, wo unter anderem der Name der Komponente und auch der 'Typ' also TLabel, TButton usw. drinsteht.
Bis jetzt mache ich das ganze so:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
| component := 'Label1';
case typ of
1: with Form1.FindComponent(component) as TLabel do
begin
Color := clRed; end;
2: with Form1.FindComponent(component) as TButton do
begin
Color := clRed;
end;
3: with Form1.FindComponent(component) as TMemo do
begin
Color := clRed;
end;
end; |
und ich hätte aber gerne sowas in der Richtung wie
Delphi-Quelltext
1:
2:
| with Form1.FindComponent(component) as CompArray[typ] do
Color := clRed; |
Ich bräuchte also ein Array der die Werte TLabel, TForm, TMemo usw. annehmen kann, und genau an der Stelle komme ich nicht weiter.
Ich hoffe mal ihr versteht was ich meine
