How to declare this ?
lazarus / 9-Editor

----------------------------------------------------------------------
GoDxNero · 2009-10-27 13:58

var MyCircle : array[1..25] of TShape;
     a : Integer;

I have created 25 TShaped ( But not on FormCreate )
How do I declare that

for a := 1 to 25 do
MyCircle[a] := Shape[a] <---- How to declare this the correct way ?

So that
  with MyCircle[1] do
  Brush.Color := clLime;

then Shape1 color will be clLime.

----------------------------------------------------------------------
Bart · 2009-10-27 14:05

Code: [Select]  for a := 1 to 25 do
    MyCircle[a] := TShape .Create(Self);

This will make Self (most probaly Form1, because I guess you run that
code in Form1.FormCreate) the owner of the shape.

You wil still have to assign a parent to each shape, or you will not
see the shape at all. This can be done in the same loop:
Code: [Select]  for a := 1 to 25 do
  begin
    MyCircle[a] := TShape .Create(Self);
    MyCircle[a].Parent := Self;
  end;