TForm-instanzen erzeugen und gezielt ansprechen

[Aenogym]

hi,
ich arbeite grad an einem instant-messenger. solche programme haben ja stndardmäßig das feature, mit mehreren personen getrennt voneinander zu chatten. also werden von einem formular (das chatfenster) mehrere instanzen erzeugt, die dann auch noch getrennt voneinander angesprochen werden sollen, damit die nachricht von user1 auch wirklich im richtigen fenster angezeigt wird und nicht auf einmal im anderen...

mein problem ist genau dieses gezielte ansprechen der verschiedenen instanzen.
habt ihr eine idee, wie ich das ganze machen könnte?

danke,
Aenogym

[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;

[Aenogym]

LChatFensterListe ist dann warscheinlich die TList. Dankeschön! :coder:
PS: du hast ein ":" vergessen ;)

Aenogym