hey danke!
wieder mal sehr hilfreich und aufleuchtend!
aber habe wieder eine weitere Frage!
ich habe die erfolgreich gelöscht und stelle sie wieder her!
blöderweise aber nicht an der gleichen Stelle, obwohl ich zum Erstellen dieser Shapes die gleiche procedure verwende,
siehe hier:
Delphi-Quellcode:
procedure TForm1.Spielbrettaufbauen();
var
horizontal,vertikal: integer;
//Feld: array of array of tshape;
Feld: tshape;
Feldnummer: integer;
begin
Feldnummer:= 0;
for horizontal := 1 to Spalten do begin
Feldnummer:= Feldnummer +1;
Abstand_hor:= Abstand_hor + Breite;
Abstand_ver:= Basis;
for vertikal := 1 to Zeilen do
begin
Feldnummer:= Feldnummer +1;
Abstand_ver:= Abstand_ver + Hoehe;
//das Shape wird formatiert
Feld := Tshape.create(self);
Feld.Name:= 'Teil'+inttostr(Feldnummer);
Feld.Parent:= form1;
Feld.height:= Hoehe;
Feld.width:= Breite;
Feld.top:= Position_top + Abstand_ver;
Feld.left:= Position_left + Abstand_hor;
Feld.OnMouseUp:= Fillshape;
end;
end;
end;
Beim zweiten mal Erstellen, befinden sich meine shapes rechts genau neben den gelöschen shapes, welche man natürlich nicht mehr sieht.
kann mir hier jemand helfen?