Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
2. Nov 2008
Schreib mal in der Deklaration von TSpielfeld unter das private FColors: TList;
Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
2. Nov 2008
FColors ist vom Typ TList. Hier färbe ich 4 Shapes ein.procedure TForm1.FormCreate(Sender: TObject);
var i, cIndex: Integer;
begin
Randomize;
FColors := TList.Create;
FColors.Add(Pointer(clWhite));
FColors.Add(Pointer(clRed));
FColors.Add(Pointer(clBlue));
FColors.Add(Pointer(clYellow));
for i := 1 to 4 do
Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
2. Nov 2008
Erstell Dir einfach eine Liste mit den verfügbaren Farben. Jeder Ball bekommt eine zufällige Farbe zugewiesen, anschließend wird diese Farbe aus der Liste gelöscht.