hilfe ein problem
mit diesen code erzeuge ich shapes und dem namen Shape0, Shape1,Shape2,...
Delphi-Quellcode:
for reihen:=0 to AICs-1 do
begin
for i := 1 to 8 do//ALEDs do
begin
// SHAPE ERZEUGEN
ShapeX := TShape.Create(form1);
ShapeX.Name :='Shape'+inttostr(AnzahlShapes+1); // plus eins weil nur wenn es 8 leds sind dann nur eine 7 darin steht
ShapeX.Parent := form1;
// und INITALISIEREN
shapex.Width := 16;
shapex.Height := 16;
shapex.Top := (i*16);
shapex.Left := 179+(reihen*16);
shapex.Shape := stCircle;
shapex.Brush.Color := clMaroon;
//shapex.FreeOnRelease;
inc(AnzahlShapes);
end; // ende der for 1 to ALEDs
end; // for reihen 1 to AICs
und ich will sie in einer anderen procedure ansprechen, einzeln.
aber ich weiß nicht wie das geht ist mein erstes projekt mit dyn. erzeugten objekten.
hatte es versucht mit
ShapeX.Shape0.brush.color
und
Shape0.brush.color
aber es geht nicht - helft mir biiiitte
korn117