Timage + 1 wie???

[foerster7892]

Hi@all,
also das wollte ich machen aber ich weiß nicht genau wie:

Delphi-Quellcode:

(FindComponent('image' + IntToStr(Name))).Picture.clear //<--- auf Name liegt eine Zahl und clear hab ich geraten kann falsch sein zum leeren einer Timagecomponente

kann auch sein das ich den Befehl FindComponent falsch verstanden habe.

Hoffe ihr könnt mir helfen

Danke im Vorraus

mfg
foerster7892

[mkinzler]

.FindComponent() liefert dir ein TComponent zurück. Die Rückgabe musst du in einen passenden Tap casten:

Delphi-Quellcode:

(FindComponent('image' + IntToStr(Name)) as TImage).<Eigenschaft> bzw. <Methode>

[nuclearping]

Und statt .Picture.Clear -> .Picture.Assign (nil)

[foerster7892]

thx schonmal aber da kommt immer noch ein fehler

Delphi-Quellcode:

(FindComponent('Image' + IntToStr(Name)) as TImage).Picture := nil;

bzw

Delphi-Quellcode:

(FindComponent('Image' + IntToStr(Name)) as TImage).Picture.Assign(nil);

und zwar: es gibt keine überladene Version von 'IntToStr' die man mit diesem Argumenten aufrufen kann

[mkinzler]

Name ist vielleicht auch ein ungeeigneter Variablenname

[himitsu]

Zitat:

auf Name liegt eine Zahl

damit ist aber nicht gesagt, daß Name wirklich ein Integer ist.

[foerster7892]

@mkinzler: lol simmt garnicht gemerkt
thx dann an alle und :dp:

[Cyf]

Zitat:

Zitat von nuclearping

Und statt .Picture.Clear -> .Picture.Assign (nil)

Wow, man lernt nie aus, hätte nicht gedacht, das das geht.

Alternativ kannst du, wenn du eine neue Hintergrundfarbe brauchst auch

Delphi-Quellcode:

Image1.Canvas.Brush.Color:= clDeineHintergrundfarbe;
Image1.Canvas.FillRect(Image1.Canvas.ClipRect);

verwenden, oder einfach Visible auf false setzen, falls du das Bild behalten willst, aber für einen Moment nicht anzeigen.
Die Assign-Variante, ist falls das Bild komplett weg haben willst, ohne einen neuen Hintergrund zu benötigen, aber schneller.

[Edit]Du könntest für den Zugriff auf deine Bilder auch alle Bildreferenzen in einem Array speichern.