Richedit auf Tabsheet zur Laufzeit erstellen

[Peter81]

Hallo,

du kannst die Komponente auf einem Tabsheet platzieren indem du dem Richedit.parent das dazugehörige Tabsheet zuweist.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  TabTitles: array[0..20] of ShortString ;
  i,k: Integer;
  PageControl1: TPageControl;
  testStands:TStringList;
  RichEdit: TRichEdit;
  TabSheet: TTabSheet;
begin
  testStands:=TStringList.Create;
  testStands.AddStrings(RichEdit1.Lines);
  k:=testStands.Count;
  PageControl1 := TPageControl.Create(Self);
  PageControl1.Parent := Self;
  PageControl1.Left:=20;
  PageControl1.Top:=100;
  PageControl1.Width:=500;
  for i := 1 to k do
  begin
    TabSheet := TTabSheet.Create(PageControl1);
    with TabSheet do
    begin
      PageControl := PageControl1;
      Name := 'ts' + IntToStr(i);
      Caption := testStands[i-1];
      RichEdit := TRichEdit.Create(TabSheet);
      RichEdit.Parent := TabSheet;
      Richedit.Align := alClient;
   end;
  end;
  testStands.Free;
end;