Mehrere Form2s öffnen und einen Socket übergeben

[PseudoFreak]

Ich möchte ein Chat Programm schreiben, bei dem der Server in einer Listbox alle Clients angezeigt werden, und man mit einem Doppelklick ein zweites Formular öffnen kann und dort Chatten kann. Die Probleme:
Ich muss für jeden Client ein neues Fenster öffnen können und dem neuen Formular das Socket übergeben. (wie) geht das?
Vielen Dank

[Sir Rufo]

Indem du der ChatForm eine Property hinzufügst?

Delphi-Quellcode:

TClientChatForm = class( TForm )
...
private
  FClient : TClientSocket;
  procedure SetClient( Value : TclientSocket );
public
  property Client : TClientSocket read FClient write SetClient;
end;

...

procedure TClientChatForm.SetClient( Value : TClientSocket );
begin
  // hier können jetzt auch noch weitere Aktionen erfolgen, die bei der Zuweisung zu beachten sind
  FClient := Value;
end;

bei der Auswahl dann

Delphi-Quellcode:

with TClientChatForm.Create( Application ) do
begin
  Client := TheClientSocket; // oder wo imm du den auch herbekommst
  Show;
end;