Einzelnen Beitrag anzeigen

DelTurbo

Registriert seit: 12. Dez 2009
Ort: Eifel
1.197 Beiträge
 
Delphi 2007 Architect
 
#1

PageControl: in neuem Tab ein Object erstellen

  Alt 26. Dez 2009, 22:30
Hi,

ich habe gleich zwei fragen. Eventuell auch nur ein verständniss problem. Ich habe mit PageControl ein Objekt erstellt. Nun kann ich mit fogendem Code dort drin tabs erstllen.

Delphi-Quellcode:
procedure TForm1.bc(Sender: TObject);
var
  i: Integer;
begin
  for i := 0 to 3 do
    with TTabSheet.Create(PageControl1) do
    begin
      PageControl := PageControl1;
      Name := 'sname' + IntToStr(i);
      Caption := IntToStr(i);
   end;
end;
Ich weiss ist nicht schön, aber zeigt wie man tabs erstellt. Wie kann ich nun in dieser schleife auch eine RichEdit erstellen? Oder anders gefragt, ich weiss wie man z.b. ein RichEdit zur laufzeit erstellt. Sagen wir mal ich möchte nun RichEdit1 in Tab 1 haben, und RichEdit2 in Tab 2 haben usw.

Wegen dem löschen eines tab mit X erstellung bin ich bei euch schon fündig geworden. Das ist aber im moment erstmal zweitrangig für mich.

Danke im voraus
  Mit Zitat antworten Zitat