Discussion :

[richard038]

Salut,

Existe-il une solution pour rendre un onglet visible mais inactif sur un TPAGECONTROL ?

Merci

[poussinphp]

regarde les options de ton inspecteur d'objet. ya une option nommé "enabled".

Code :

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

TabSheet1.Enabled:= false;

voilà

[richard038]

Non, ça ne marche pas. C'est la première chose que j'ai essayé.

[rv66]

il faut renseigner un évènement, je ne souviens pas du quel.
mais avec tu devrais trouver

[richard038]

Je vais chercher. Merci

[Thierry G.]

salut,

celui de la JVCL fonctionne, lorsque on mets un tabsheet.enabled a false, il n'est pas possible de l'activer.

[Bloon]

Tu peux simuler ce comportement :

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
  TForm1 = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    Button1: TButton;
    TabSheet3: TTabSheet;
    procedure PageControl1Changing(Sender: TObject;
      var AllowChange: Boolean);
    procedure PageControl1Change(Sender: TObject);
  private
    lastTS : TTabSheet;
  public
    { Déclarations publiques }
  end;
 
procedure TForm1.PageControl1Changing(Sender: TObject;
  var AllowChange: Boolean);
begin
  lastTS := PageControl1.ActivePage;
end;
 
procedure TForm1.PageControl1Change(Sender: TObject);
begin
  if not PageControl1.ActivePage.Enabled then
    PageControl1.ActivePage := lastTS;
end;

Bloon