Ich gehe jetzt mal davon aus, dass du die Werte so in einer Textdatei stehen hast:
Name des Objekts
Left-Koordinate
Top-Koordinate
Width
Heigth
Beispiel:
Image1
100
100
200
150
Delphi-Quellcode:
Uses ...,extctrls;
//In der Variablendeklaration:
var
//Ich verwende jetzt mal eine Stringlist, um die Datei zu laden
SL:TStringlist;
//Um ein dynamisches Objekt zur Laufzeit zu erstellen, ein TImage in einer Variable deklarieren
Objekt:TImage;
//Jetzt muss die Datei geladen werden. Ich mache es beim Klick auf einen Button
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
SL:=TStringlist.create;
SL.LoadFromFile('Test.txt');
i:=0; //Erste Zeile der Stringlist wird durch SL[0] angesprochen (Immer -1)
//Objekte erstellen durch eine Schleife
while i<SL.count do
begin
Objekt:=TImage.create(Form1);
Objekt.name:=SL[i]; //Name des Objekts wird aus der Liste ausgelesen
Objekt.Left:=StrToInt(SL[i+1]); //Leftwert befindet sich eine Zeile hinter dem Namen
Objekt.Top:=StrToInt(SL[i+2]); //Topwert befindet sich zwei Zeilen hinter dem Namen
Objekt.Width:=StrToInt(SL[i+3]);
Objekt.Height:=StrToInt(SL[i+4]);
Objekt.parent:=Form1;
Objekt.show;
Objekt.Canvas.FloodFill(1,1,clblack,fsSurface); //Das musst du halt ersetzen, ein Bild reinladen oder sonst was
i:=i+5; //Springt zum nächsten Namen in der Liste
end;
end;
Ich hoffe so sollte es sein...
Liebe Grüße!