create component in runtime ... limit ?

[Maziar123]

Hi

i try below code :

Code: [Select]

procedure TForm1.Button1Click(Sender: TObject);
var
   i : Integer;
   t : DWord;
   P : TPanel;
   LastPanel : TPanel;
begin
     t := GetTickCount;
     LastPanel := Panel1;;
     for i := 0 to 20 do begin
         P := TPanel.Create(Self);
         P.Parent := LastPanel;
         p.Align:=  alClient;
         LastPanel := p;
     end;
     ShowMessage(inttostr(GetTickCount - t));
end;


i get error if for loop value (in up code is 20) is over 70  for 20 work true! why ?

[Leledumbo]

Windows API AFAIK doesn't limit it, so the only limit is your memory. What's the error message?

[Maziar123]

error 87 : parameter is not correct ! seven 64 bit using lazarus 64bit

[Martin_fr]

you may want to read this:

http://social.msdn.microsoft.com/Forums/en/windowsuidevelopment/thread/90cab24c-a90e-475f-87f5-3570ed7b45d2

[Maziar123]

yes ....no more understand

BUT why same code work in delphi ?

[Martin_fr]

It doesn't work in Delphi.

I just tested "Turbo Delphi 2006"

same error

[marcov]

It might be due to random memory layout.

Not all code that works is good.

[ivan17]

i can confirm that there is a limit to how deep you can nest the controls (varies among windows versions) but nobody ever cared about it.

is there a remotely sane reason to make a 50 level deep component tree?

write the whole thing off as a discovery of interesting fact. in a normal layout, lazarus won't mind you creating thousands of panels.