Creating Objs dinamicaly

[tvidigal]

Hi,
i have

var myP: array[0..kMaxPanels-1] of TPanel;

then

procedure DrawPanelsFromTracks_Click(Sender : TObject);
var i : integer;
begin
for i:=0 to kMaxPanels-1 do
begin
myP:=TPanel.Create(self); {works just fine}
myP.Tag:=i; {crashes or other thing}
end;
end;

what i'm doing wrong here??
how can i create objects dinamically and show then on form!

thanks in advance

 

[KempCGDR]

Assuming that was

myP[i].Tag := i;

then try

(myP[i] As TPanel).Tag := i;

 

[bbegley]

or on declaration:
myP : TPanel;

that way you don't have to cast the object as TPanel when you want to operate on it.

Brian
"There are 2 kinds of people in the world, those that divide people into two groups and those that don't. I belong to the second group." - tag line I stole

 

[BillDoorNZ]

var myP: array[0..kMaxPanels-1] of TPanel;

then

procedure DrawPanelsFromTracks_Click(Sender : TObject);
var i : integer;
begin
for i:=0 to kMaxPanels-1 do
begin
myP := TPanel.Create(self);
myP.Parent := self;
myP.Tag:=i;
end;
end;

 

[BillDoorNZ]

you need to make sure you set the Parent property of any dynamically created visual controls (there are some exceptions)...otherwise they don't show up.

 

[tvidigal]

Geez guys

thank you!!

BillDoorNz you'r great dude!!

regards