Creating multiple (maybe hundreds) of almost-identical TForms

[taazz]

Ok, i think i have almost everything ready.

One more thing. How i can bringtofront a specific form that already exist?

copyform[number].show;
copyform[number].bringtofront;
copyform[number].visible := true;

All  give me errors SIGSEGV. 

That means that the specific cell is empty or points to an invalid address

[minesadorada]

For a dynamic form without resources Myform[index].CreateNew(nil) would be better?

[Fred vS]

All  give me errors SIGSEGV. 

=>

Code: [Select]

if assigned(copyform[number]) then
  begin
copyform[number].show;
copyform[number].bringtofront;
copyform[number].visible := true;
end;

[torbente]

Ok, i think i have almost everything ready.

One more thing. How i can bringtofront a specific form that already exist?

copyform[number].show;
copyform[number].bringtofront;
copyform[number].visible := true;

All  give me errors SIGSEGV. 

That means that the specific cell is empty or points to an invalid address

You were rigth, i was using a bad counter to check it. Fixed.

[bylaardt]

Forget arrays!!!
use a parental control to all this forms,
something like this

Code: [Select]

var
   MyParent:TComponent;
begin
  MyParent:=TComponent.create(application);
  CopyForm.create(MyParent);
  CopyForm.create(MyParent);
  CopyForm.create(MyParent);
 
  CopyForm(MyParent.Components[0]).caption:='First Form';
  Shomessage('I Have '+inttostr(MyParent.componentCount)+' copyforms actives')
;end;

[howardpc]

Your naming here is confusing.
MyParent is not the parent of the created forms, but their owner.

In fact, MyParent is not needed. Your scheme would be simpler if you dispensed with "MyParent" altogether and made the already exisiting Application instance the owner of each form, using the Application.Components[] array to track which forms are visible, how many there are etc.

[cpalx]

Why dont you use Tframes todo make the pattern form?
Maybe pascal scripts can help you to add code dynamically