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;