Variable Formularelemente

[blackmice]

Hallo,

ich habe folgendes Problem. Ich habe 64 Panels auf meinem Bildschirm und möchte bei einem davon die Farbe ändern. Die Nummer dieses Panels ergibt sich allerdings erst im Programmablauf.
Gib es eine einfacherer Methode das richtige Panel zu verändern ausser

if i := 1 then Form1.Panel1.Color := clGreen;
if i := 2 then Form1.Panel2.Color := clGreen;
...
if i := 64 then Form1.Panel64.Color := clGreen;

Das fände ich doch ziemlich langwierig.

Gruß
Blackmice

[Phoenix]

FindComponent
Bitte das nächste mal erst die Suchfunktion bemühen. Das hatte wir sicher schon ein paar hundert mal...

Achso,.. Edit nachtrag: Herzlich Willkommen in der DP

[blackmice]

Sorry, aber FindComponent funktioniert nicht. Hab ich schliesslich schon ausprobiert.

TComponent wird zwar vielleicht zurückgeliefert, hat aber keine Eigenschaft Color. Jedenfalls komme ich dann an der Stelle nicht weiter.

[leddl]

Zitat von blackmice:

Sorry, aber FindComponent funktioniert nicht. Hab ich schliesslich schon ausprobiert.

Dann hast dus aber nich besonders gründlich ausprobiert Bei mir und anderen funktioniert es schließlich

Zitat von blackmice:

TComponent wird zwar vielleicht zurückgeliefert, hat aber keine Eigenschaft Color. Jedenfalls komme ich dann an der Stelle nicht weiter.

Klar, daher solltest du ja die gefundene TComponent auch noch auf den entsprechenden Typ prüfen und dann casten Steht aber auch in den diversen Threads zu dem Thema

[DeddyH]

Delphi-Quellcode:

procedure TForm1.ComboBox1Change(Sender: TObject);
var Comp: TComponent;
begin
  Comp := FindComponent('Panel' + ComboBox1.Items[ComboBox1.ItemIndex]);
  if Assigned(Comp) and (Comp is TPanel) then
    TPanel(Comp).Color := clGreen;
end;

[blackmice]

Ah danke, jetzt geht es. Mir fehlte der Hinweis mit TPanels(comp). Und den hatte ich in den Threads die ich bisher gelesen habe zu FindComponent auch nicht gefunden.

[leddl]

Zitat von blackmice:

Und den hatte ich in den Threads die ich bisher gelesen habe zu FindComponent auch nicht gefunden.

Also erstmal schön, dass es jetzt klappt und dir geholfen werden konnte, aaaaaber: ohne Casten ist FindComponent doch kaum zu gebrauchen, daher kann ich ehrlich gesagt nicht glauben, dass das nirgendwo zu sehen gewesen sein sollte

Aber genug davon (ich muss auch immer auf allem rumreiten ), hauptsache es geht jetzt

[blackmice]

Ja ja, immer diese Neulinge, die hier reinstolpern und von nix ne Ahnung haben, furchtbar

Vielen Danke jedenfalls

[mkinzler]

Zitat von blackmice:

Ja ja, immer diese Neulinge, die hier reinstolpern und von nix ne Ahnung haben, furchtbar

Vielen Danke jedenfalls

Nein das Forum lebt doch gerade von den Fragen. Wären hier nur Leute, die Fragen beantworten, wäre hier tote Hose.