PageControl mit Registerkarten zur Laufzeit erstellen

[400kmh]

Hallo,

kann mir jemand erklären, mit welchen Befehlen man ein Pagecontrol zur Laufzeit erstellt und Registerkarten hinzufügt?

Die Logik dahinter habe ich anscheinend noch nicht verstanden, denn was ich bisher ausprobiert habe, funktioniert nicht.

[Scotty]

Das geht, wenn man ein TTabSheet erzeugt und dessen Eigenschaft PageControl entsprechend setzt. Zum Beispiel:

Code: Alles auswählen

with TTabSheet.Create(self) do
begin
  PageControl:=PageControl1;
  Caption:='Test';
end;

[400kmh]

Das geht, wenn man ein TTabSheet erzeugt und dessen Eigenschaft PageControl entsprechend setzt. Zum Beispiel:

Code: Alles auswählen

with TTabSheet.Create(self) do
begin
  PageControl:=PageControl1;
  Caption:='Test';
end;

Hm, bei folgendem Code erscheint zwar keine Fehlermeldung, aber das erzeugte Fenster ist leer:

Code: Alles auswählen

unit test2;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
  ComCtrls;
 
type
 
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
  public
  end; 
 
var
  Form1: TForm1;
 
implementation
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  with TTabSheet.Create(self) do
  begin
    PageControl:=PageControl;
    Caption:='Test';
  end;
end;
 
initialization
  {$I test2.lrs}
 
end.

Was fehlt noch?

[Scotty]

Code: Alles auswählen

PageControl:=PageControl;

Was fehlt noch?

Da muss der richtige Name deines TPageControl's hin.

[400kmh]

Code: Alles auswählen

PageControl:=PageControl;

Was fehlt noch?

Da muss der richtige Name deines TPageControl's hin.

Also so z.B.?

Code: Alles auswählen

var
  Form1: TForm1;
  PageControl1: TPageControl;
 
implementation
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  with TTabSheet.Create(self) do
  begin
    PageControl:=PageControl1;
    Caption:='Test';
  end;
end;

Da tut sich immernoch nichts.

[felix96]

Guck, mal unter "{Laz-Verzeichnis}\examples" nach, da gibts irgendwo ein Beisiel!

[Socke]

Du musst natürlich zuerst das PageControl erstellen (oder im Designer auf das Formular packen):

Code: Alles auswählen

TMyForm = class(TForm)
  FThisPageControl: TPageControl;
end;
// ...
// im Constructor oder OnCreate
begin
  FThisPageControl := TPageControl.Create(Self);
  FThisPageControl.Parent := Self;
  with TTabSheet.Create(Self) do
  begin
    PageControl := FThisPageControl;
    Caption := 'Hallo';
  end;
end;

[400kmh]

Du musst natürlich zuerst das PageControl erstellen (oder im Designer auf das Formular packen):

Code: Alles auswählen

TMyForm = class(TForm)
  FThisPageControl: TPageControl;
end;
// ...
// im Constructor oder OnCreate
begin
  FThisPageControl := TPageControl.Create(Self);
  FThisPageControl.Parent := Self;
  with TTabSheet.Create(Self) do
  begin
    PageControl := FThisPageControl;
    Caption := 'Hallo';
  end;
end;

Danke. Jetzt funktioniert es.