Multiple frames on single form

[hakelm]

I have a frame, Ttpropertiesframe and try to place several different and independent instances on the same form with:

Code: Pascal  [Select][+][-]

1.   properties1:=Ttpropertiesframe.Create(self);
2.   properties1.Parent:=self;
3.  
4.   properties2:=Ttpropertiesframe.Create(self);
5.   properties2.Parent:=self;
6.   properties2.Left:=properties1.Left+properties1.Width;
7.  

this compiles nicely but when run I get the exception:

Project imgcat raised exception class 'EComponentError' with message:
Duplicate name: A component named "tpropertiesframe" already exists

Why is this so, aren't the different frames just variables of the same type derived from TComponent?
H

[MarkMLl]

Why are you trying to do it manually rather than using the IDE?

MarkMLl

[hakelm]

Because I would like to have a little procedure that with a click places around 10 of these frames similar but equipped with different data on a form
H

[wp]

Yes. The TAChart demo "charteditor" makes massive use of frames, and I saw the same issue when writing this. The problem is that a frame inserted at runtime does get a Name value equal to the class name by default (I consider this to be a bug...). Without the automatic name generation of the Lazarus designtime mode, therefore, two frames of the same type have a name collision, and this must not happen.

So, jamie's idea to reset the Name to an empty string after creation of each frame is the correct solution.

[hakelm]

Thanks, explanations are as far as I can understand correct, but I can't set the owner since it is read only.
I made this little workaround that seems to be working, at least are the subcomponents destructors called on destruction:

Code: Pascal  [Select][+][-]

1.   c:tcomponent;
2. ................
3.  
4.   c:=tcomponent.Create(self);
5.   properties1:=Ttpropertiesframe.Create(c);
6.   properties1.Parent:=self;
7.  
8.   c:=tcomponent.Create(self);
9.   properties2:=Ttpropertiesframe.Create(c);
10.   properties2.Parent:=self;
11.   properties2.Left:=properties1.Left+properties1.Width;
12.  
13.  

H

 

[Jorg3000]

You don't need to do something with the Owner.
Simply set .Name:=''; after the Create.
That will do it.
So there will be no name collision at the next create.

[hakelm]

Thanks, you are right.
H