Entwickler-Ecke
Multimedia / Grafik - Bilder in TImage
sigi - Do 05.01.12 16:52
Titel: Bilder in TImage
Hallo und ein frohes neues Jahr,
angenommen ich habe mehrere TImage (oder Button usw.) und möchte jedes zB. in der Art ansprechen:
Delphi-Quelltext
1:
2:
| for i := 0 to 10 do
Image[i].Picture.LoadFromFile(FileListBox1.Items[i]); |
was aber so ja nicht geht. Wie kann man die einzelnen ansprechen, ohne haufenweise Code zu schreiben?
Gruß sigi
Moderiert von 
Narses: Delphi-Tags hinzugefügt
Gausi - Do 05.01.12 16:59
Möglichkeit 1: Nutze ein Array of TImage (als Variable der Form), dass du im OnCreate der Form so füllst:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
| SetLength(MyImageArray, 42);
MyImageArray[0] := Image0;
MyImageArray[1] := Image1;
MyImageArray[2] := Image2;
MyImageArray[41] := Image41; |
Möglichkeit 2 (die sich auch mit dem ersten kombinieren lässt):
FINDCOMPONENT.
Andreas L. - Do 05.01.12 17:18
Wenn die Bilder alle auf einem Panel liegen und sonst keine weiteren Bilder drauf sind gehts auch so:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
| var
CompIdx: Integer;
begin
for CompIdx := 0 to MyPanel.ControlCount -1 do
begin
if MyPanel.Controls[CompIdx] is TImage then
TImage(MyPanel.Controls[CompIdx]).Picture.LoadFromFile(...);
end;
end; |
sigi - Do 12.01.12 16:17
Danke, mal sehen, ob ich damit als ewiger Anfänger klar komme.
Gruß sigi
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!