Ein Chat und beliebig viele Formulare

[S - tefano]

Hi,

Um es noch mehr ICQ- Like zu machen:

Delphi-Quellcode:

var
  myForms: array of TMyChatForm;
  formCount: integer;

{...}

procedure MachNeuForm;
begin
  inc(formCount);
  SetLength(myForms, formCount);
  myforms[formCount - 1]:= TMyChatForm.Create(self);
  myforms[formCount - 1].Show;
end;

So kannst du beliebig viele Fenster öffnen. So mach ich das bei meinem ChatProgramm auch (an dieser Stelle möchte ich die Präsentation im Freeware - Bereich für irgendwann demnächst ankündigen...), da funktionierts ganz gut.

Bis dann,

S - tefano