Bilder in TImage

sigi · Verfasst: Do 05.01.12 16:52

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

markieren

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 · Verfasst: 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

markieren

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): Suche in: Delphi-Forum.de

FINDCOMPONENT.

_________________
Oel ngati kameie.

Andreas L. · Verfasst: 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

markieren

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 · Verfasst: Do 12.01.12 16:17

Danke, mal sehen, ob ich damit als ewiger Anfänger klar komme.

Gruß sigi


Delphi-Forum.de	Delphi-Library.de
C-Sharp-Forum.de	C-Sharp-Library.de