Mehrere Fenster in Tab erzeugen?

[Novo]

Zitat von Blup:

Benutze ein TabControl und ein Richedit, beim Wechsel des Tabs änderst du den Inhalt des Textes.
Daten werden nicht in der Oberfläche gehalten sondern dort nur angezeigt.
Wenn die Texte der einzelnen Tabs zwischengespeichert werden sollen, dann zum Beispiel in einer TObjectList in der für jedes Tab ein entsprechendes TStream-Object eingefügt werden kann.

hä xD?
Es soll ja ein neues Tab erzeugt werden, wenn nicht bereits vorhanden (titel = User1, titel = User2 usw.)
und die TPageControl soll ein schliessen Button haben bzw. soll geschlossen werden können.


also ich habe es bisher so:

Delphi-Quellcode:

procedure TfrmMain.lstBoxKontakteDblClick(Sender: TObject);
begin
  if lstBoxKontakte.Selected = nil then Exit;
  with TfrmChat.Create(Self) do
  begin
    Caption := 'Send message to: ' + lstBoxKontakte.Selected.Caption;
    FDest := lstBoxKontakte.Selected.Caption;
    Show;
  end;
end;

Dieses öffnet mein ChatFenster jetzt jedesmal neu mit jeweils dem Empfänger,
aber wie machen, dass das in die TPageControl sich öffnet?



EDIT:
Habs von alleien hinbekommen:

Delphi-Quellcode:

  newTabSheet := TTabSheet.Create(frmChat.PageControl1);
  newTabSheet.Caption := FDest;
  newTabSheet.Name := 'tab' + FDest;
  newTabSheet.PageControl := frmChat.PageControl1;
  newTabSheet.Parent := frmChat.PageControl1;
  frmChat.PageControl1.ActivePage := newTabSheet;
  newRichEdit := TRichedit.Create(newTabSheet);
  TWinControl(newRichEdit).Name := 'richedit' + FDest;
  TWinControl(newRichEdit).Parent := newTabSheet;
  newRichEdit.Align := alClient;

und jetzt habe ich sogar mit:

Delphi-Quellcode:

    function GetCurrentRichEdit: TRichEdit;
    property CurrentRichEdit: TRichEdit read GetCurrentRichEdit;



function TfrmChat.GetCurrentRichEdit: TRichEdit;
var
  i: integer;
begin
  result := nil;
  i := 0;
  while (result = nil) and (i < frmChat.PageControl1.ActivePage.ControlCount) do
  begin
    if (frmChat.PageControl1.ActivePage.Controls[i] is TRicHEdit) then
      result := (frmChat.PageControl1.ActivePage.Controls[i] as TRichEdit)
    else
      inc(i);
  end;
end;

den aktuell aktiven TRichEdit ermittelt und so kommt jede msg nur da an wo gerade aktiv ist.



nur noch das schlisse wäre zu tun.