k, soweit so gut, klappt auch alles, nur wie greif ich da jetzt wieder drauf zu , um deren namen und position zu verändern?
weil ich identifiziere die Shapes bisher anhand von Stapelposition (1,2,3) und bei der Höhe mit der Anzahl der Scheiben), die im namen der Komponente gespeichert sind, die Position im Array hilft mir nicht weiter. Ich weis aber jetzt irgendwie nicht, wie ich das damit mache.
Meine Zugriffsprocedure
Delphi-Quellcode:
var
Kompo:TShape;
begin
Kompo := (Findcomponent('im_st'+ InttoStr(Startstapel) + 'nr' + InttoStr(Stapel[Startstapel].Anzahl)) as TShape);
if (Kompo <> nil) then
begin
Kompo.Left := Stapel[Zielstapel].left - (Kompo.Width div 2);
Kompo.Top := Stapel[Zielstapel].Top - (15 * (Stapel[Zielstapel].Anzahl+1)) ;
inc(Stapel[Startstapel].Anzahl,-1);
inc(Stapel[Zielstapel].Anzahl);
Kompo.Name := 'im_st'+ InttoStr(Zielstapel) + 'nr' + InttoStr(Stapel[Zielstapel].Anzahl);
end;
end;
Die erzeugung
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
shape:TShape;
anzahl:integer;
begin
for i := 0 to fListe.count - 1 do
TShape(fliste.Items[i]).Free;
fListe.Clear;
Stapel[1].Anzahl := 0;
anzahl:=1;
for i := 1 to sp_scheibenzahl.value do begin
Shape := TShape.Create(self);
Shape.Name :='im_st'+ InttoStr(Startstapel) + 'nr' + InttoStr(Stapel[Startstapel].Anzahl);
Shape.Parent := Form1;
shape.Width := 100;
shape.Height := 15;
shape.Top := Stapel[Startstapel].Top - (15 * (Stapel[Startstapel].Anzahl+1));
shape.Left := Stapel[Startstapel].left - (shape.Width div 2);
shape.Shape := stRoundRect;
fListe.Add(shape);
inc(Stapel[Startstapel].Anzahl);
inc(Anzahl);
end;
end;
Edit: Bin gleich erstmal für ne weile weg, kann also nicht direkt antworten