Création dynamique d'onglets
Bonjour,
Je travaille sur un projet en Delphi (c'est la première fois que j'y touche) et j'ai choisis dans un soucis d'ergonomie, de mettre en place des onglets.
J'explique mon problème :
Lors du lancement de mon application, j'ai un seul onglet "accueil" qui s'ouvre, celui possède différents boutons. Je veux que lorsque l'utilisateur appuis sur l'un des boutons, un onglet s'ouvre dynamique avec la page correspondant à son choix.
Voila ce que j'ai essayer de faire, juste pour le premier bouton "Communauté"
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41
| unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, StdCtrls;
type
TForm1 = class(TForm)
TPageControl1: TPageControl;
Accueil: TTabSheet;
Label1: TLabel;
Label2: TLabel;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
procedure Button1Click(Sender: TObject);
private { Déclarations privées }
public { Déclarations publiques }
Communaute: TTabSheet;
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
Communaute := TTabSheet.create(self);
Communaute.parent := TPageControl1;
Communaute.Caption := 'Communauté';
end;
end. |
J'espère que vous pourrez m'aider à avancer.
Merci d'avance.
Spirit