delphi - manage an dynamic array of forms (inside a page control)

Question

I'm able to create TABSHEETS at run time using the solution given here TAB AT RUN TIME . In my use case I need to create an dynamic number of forms, I create 3 different subforms on that page control.

How to Create a dynamic set of forms and how to address these controls at run time ?

MyForm1 := CreateTabAndForm_type_1;
MyForm2 := CreateTabAndForm_type_1;
MyForm3 := CreateTabAndForm_type_1;
....
???

Answer 1

Create a record containing a tabsheet and a form:

type 
  TTabsheetAndForm = record
    Tabsheet: TTabsheet;
    Form: TMyForm;
  end;

Then use either a dynamic array: TArray<TTabsheetAndForm> or array of TTabsheetAndForm. Or a generic container: TList<TTabsheetAndForm>.

Then populate the array or list as you instantiate your GUI controls.

If there are always exactly three of these things as you hint, then perhaps you don't even need the array. Three variables will do the job.