For und Image!!!

[maximi]

Ich möchte mit einer Schleife allen Bilder in meinem Form ein Bild zuweisen!! Wie mach ich das???

[Stanlay Hanks]

Na ja, wenn du die Bilder durchnummeriert benannt hast, geht das mit FindComponent. Such mal hier im Forum, da gibts tonnenweise beiträge dazu.

[maximi]

Irgendwie kappier ich's noch nicht so ganz!! Kannst du mir vielleicht mal ein kleines Beispiel zeigen???

[Stanlay Hanks]

In diesem Beispiel wird 5 Images mit den durchnummerierten Namen Image1, Image2, Image3 usw. das Bild einer Vorlage(Auch ein Image) zugewiesen.

Delphi-Quellcode:

procedure TForm1.dxButton1Click(Sender: TObject);
var i : Integer;
begin
 For i := 1 to 5 do
  (FindComponent('Image'+IntToStr(i)) as TImage).Picture := Vorlage.Picture;
end;

[maximi]

Ok Danke!
Wenn ich aber mehrere variablen in einer procedure habe, muss ich eine variable vom Typ TComponent initiallisieren. Diese variable aber hat dann den wert nil. Wie kann ich das verhindern???

[Christian Seehase]

Moin maximi,

Zitat von maximi:

Wenn ich aber mehrere variablen in einer procedure habe, muss ich eine variable vom Typ TComponent initiallisieren.

Was meinst Du mit diesem Satz?

[maximi]

Also: Ich hab dann eine variable vom typ Tcomponent, diese aber hat den Wert nil!

[Darty]

Hast du etwas Code zum zeigen ?

[Stanlay Hanks]

Erklähr bitte mal genau, was du machen, willst, mit welchen Komponenten und so.

[maximi]

Hallo!!!!
Ich hab's hinbekommen!! Ich hatte mehrere Klassen vereinbart und deswegen musste vor findcomponent noch Form1!!!