TPageControl création de page dynamique ?

Question

Voila j'aimerai crée dynamiquement des pages dans mon page controle mais j'ai pas compris se qu'il fallais crée si c'est un objets TPage ?

Merci d'avance

PS: code exemple bienvenue :)

yoghisan · Answer

Voila

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls;

type
  TForm1 = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    procedure FormActivate(Sender: TObject);
  private
    { Déclarations privées }
  public
    PageControl: TPageControl;
    TabSheet   : TTabSheet;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormActivate(Sender: TObject);
begin
  //Création dynamique du page control
  PageControl1:=TPageControl.Create(self);
  with PageControl1 do begin
    parent:=form1;
    Align:=alclient;
  end;
  //Création dynamique du Tabsheet (ton fameux "TPage")
  TabSheet1:=TTabSheet.Create(self);
  with TabSheet1 do begin
    PageControl:=PageControl1;
    Caption:='Onglet 1';
  end;

end;

end.

yoghisan · Answer

Ha oui, j'ai oublié ce qui va avec le création dynamique, la destruction

procedure TForm1.FormDestroy(Sender: TObject);
begin
  PageControl1.Free;
  TabSheet1.Free;
end;

g0belin · Answer

merci c super !

TPageControl création de page dynamique ?

3 réponses

Votre réponse

Discussions similaires