Discussion :

[SpIrIt505050]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ero-sennin]

Salut,

Tu as une remarque et un oublie
Je mettrais plutôt ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Communaute := TTabSheet.create(TPageControl1);

à la place de cela :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Communaute := TTabSheet.create(Self);

Ainsi, lorsque TPageControl1 est détruit, les fiches qui lui sont associées sont détruites également.

Ensuite, il te manque une info. Tu dois dire à quelle PageControl doit être affecté le TabSheet (hé oui, malgré le fait que l'on a spécifié le Parent, on doit lui mettre cette info )

Ce qui donne le tout réuni ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
procedure TForm1.Button1Click(Sender: TObject);
begin
  Communaute := TTabSheet.create(Self);
  Communaute.parent := TPageControl1;
  Communaute.Caption := 'Communauté';
  Communaute.PageControl:=TPageControl1;
end;

Voilà
A+!

[SpIrIt505050]

Super ça marche !

Merci.

[ero-sennin]

Super ça marche !

Merci.

De rien

N'oublies pas le petit

Merci