Richedit auf Tabsheet zur Laufzeit erstellen

[Brakeman]

Hallo,
ich möchte zur Laufzeit ein Pagecontrol mit einer bestimmten Anzahl an Tabsheets erstellen. Dazu gebe ich in ein statisches Richedit Namen ein, die dann auch die Captions der Tabsheets werden. Das klappt auch soweit ganz gut. Nun möchte ich noch auf den einzelnen Tabsheets Richedit's plazieren um dort etwas anzuzeigen. Bei den Richedits komme ich nicht weiter. Hat evtl. jemand eine zündende Idee?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  TabTitles: array[0..20] of ShortString ;
  i,k: Integer;
  PageControl1: TPageControl;
  testStands:TStringList;
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
    with TTabSheet.Create(PageControl1) do
    begin
      PageControl := PageControl1;
      Name := 'ts' + IntToStr(i);
      Caption := testStands[i-1];
   end;
  testStands.Free;
end;

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

[Brakeman]

Danke, funktioniert prima.