Während ein Programm läuft, Image hinzufügen

[zapper54]

@Delphi-Narr:

Sieht ganz gut aus, ich habe aber noch eine Frage:
Ich würde die Textdatei mit

Delphi-Quellcode:

var
f:textfile;
s:string;

assaignfile(f,'C:\geheim.txt');
reset(f); //Damit ich auch die 1. Zeile lese
readln(f,s);
closefile(f);

Soweit erstmal. Sagt mir bitte, wenn das aus irgendeinem Grund nicht geht.

Jetzt verstehe ich das aber nicht, wie du das mit der Liste machst. Ich habe noch nie mit Listen gearbeitet...
Geht es vielleicht auch einfacher, und nicht so umständlich wie

Zitat:

Delphi-Quellcode:

while i<SL.count do
     begin
          Objekt:=TImage.create(Form1);
          Objekt.name:=SL[i];
          Objekt.Left:=StrToInt(SL[i+1]);
          Objekt.Top:=StrToInt(SL[i+2]);
          Objekt.Width:=StrToInt(SL[i+3]);
          Objekt.Height:=StrToInt(SL[i+4]);
          Objekt.parent:=Form1;
          Objekt.show;
          Objekt.Canvas.FloodFill(1,1,clblack,fsSurface);
          i:=i+5;
     end;

Kann man der Form einen Befehl geben, mit der sie selber ein neues Image erstellt?

Danke schonmal für eure Antworten.