TForm-instanzen erzeugen und gezielt ansprechen

[SirThornberry]

einfach ein Array of TForm oder eine TList nehmen und beim createn der Forms diese zur TList oder zum Array hinzufügen

Delphi-Quellcode:

type
  PTFormInstanz = ^TFormInstanz;
  TFormInstanz = record
    chatpartner: String;
    Form: TChatForm;
  end;
[...]
var LRecord: PTFormInstanz;
begin
  new(LRecord);
  LRecord^.chatpartner = 'xyz';
  LRecord^.Form := TChatform.Create(Self);
  LChatfensterListe.Add(LRecord);
  [...]
end;