Discussion :

[miniil]

Bonjour,

J'aimerai savoir comment désactiver ou rendre invisibles certains onglets de mon TabControl en fonction d'un critère.

Par exemple :

Code :

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

1
2
3
4
 
if critere = true then begin
    onglet1.visible := False;
end;

Quelqu'un peut m'aider?

D'avance merci.

[petitcoucou31]

salut

tu as les propriétés TabSheet1.TabVisible , TabSheet1.Enabled pour cela.

[miniil]

Ce n'est pas pour PageControl?

J'utilise un TabControl.

[anapurna]

salut

salut

a première vu la seul manière est de supprimer la tabulation

Code :

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

1
2
3
4
5
6
7
var
  ipos : integer;
begin
  ipos := TabControl1.Tabs.IndexOf(MonCritereDeRecherche);
  if (i>-1) then
    TabControl1.Tabs.Delete(i);
end;

sinon tu peut gerer toi meme la navigation de tes tab

dans le

Code :

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

onChanging

selon le critère tu affect true ou false a la variable

Code :

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

AllowChange

pour l'affichage il faut que tu gère le dessin toi même

exemple :

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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
 
 
TForm1= CLASS(TFORM)
  ...
Private
  NewTab : Integer;
end;
...
////////////////////////////////////////////////////////
Function TForm1.isEnabed(Index : Integer) : Boolean;
begin
  Result := False;
  If Index=2 Then
    Result := True;
end;
////////////////////////////////////////////////////////
procedure TForm1.TabControl1Changing(Sender: TObject; var AllowChange: Boolean);
begin
 AllowChange = isEnabed(NewTab);
end;
////////////////////////////////////////////////////////
procedure TForm1.TabControl1DrawTab(Control: TCustomTabControl;
  TabIndex: Integer; const Rect: TRect; Active: Boolean);
var
  TabText: string;
  P: TTabControl;
  OutRect : TRect;
begin
 p :=  Control as TTabControl ;
 TabText := P.Tabs[TabIndex];
 OutRect := Rect;
 InflateRect (OutRect, -3, -3);
 OutRect.Left := OutRect.Left + 3;
 if isEnabed then
   P.Canvas.Font.Color := clGrayText
 else
 begin
   if Active Then
   begin
     P.Canvas.Font.Color := clred ;
   end
   else
   begin
     P.Canvas.Font.Color := clBlack;
   end;
 end;
 DrawText (Control.Canvas.Handle,
    PChar (ExtractFileName (TabText)),
    Length (ExtractFileName (TabText)),
    OutRect, dt_Left or dt_SingleLine or dt_VCenter);
end;
////////////////////////////////////////////////////////
Function TForm1.GetTabIndexFromPoint(p:TPoint) : Integer;
var
  i : integer;
Begin
  Result := -1;
  for i :=0 to  TabControl1.Tabs.Count do
  Begin
    if PtInRect(TabControl1.TabRect(i),p)  then
      Result :=  i;
  end;
end;
////////////////////////////////////////////////////////
procedure TForm1.TabControl1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  NewTab  := GetTabIndexFromPoint(Point(X,Y))
end;
////////////////////////////////////////////////////////

@+ Phil

[miniil]

Merci pour ta réponse, c'est ok.