Discussion :

[richard038]

Salut,

j'ai tout essayé, mais rien y fait.

Merci

[Pedro]

Salut
Il n'y a pas une propriété Visible ou même TabVisible? sur chaque Tab?

[NoisetteProd]

heu... c'est pas :

Code :

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

TabSheet2.TabVisible := False;

pour le cacher et

Code :

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

TabSheet2.TabVisible := True;

pour le montrer ??

[Manopower]

sisi c'est bien ça Noisette

et pour travailler directement avec le pagecontrol et utiliser l'index des pages il faut écrire

Code :

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

PageControl1.Pages[1].TabVisible:=false;

[NoisetteProd]

Escusse moi, Sylvain, mais je me permet de te contredire formellement.

[edit] ok, Sylvain, je vois que tu as corrigé ton post ! et moi, mon coup de fil m'as empécher de répondre avant toi !
donc, on est tous d'accord ! [/edit]

ce code :

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
procedure TForm1.Button1Click(Sender: TObject);
begin
  TabSheet1.TabVisible := False;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  TabSheet1.TabVisible := True;
// ou bien même : PageControl1.Pages[1].TabVisible := True;
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
  PageControl1.Visible := False;
end;
 
procedure TForm1.Button4Click(Sender: TObject);
begin
  PageControl1.Visible := True;
end;

fonctionne tres bien pour
masquer la premiere TAB du PageControl
Masquer le PageControl dans ont ensemble.

Cordialement,

Noisette

[Manopower]

[edit] ok, Sylvain, je vois que tu as corrigé ton post ! et moi, mon coup de fil m'as empécher de répondre avant toi !

Et oui quand je m'apperçois de l'énormité de mes bétises dans les 5 minutes où je les ai écrite, j'édit mon message pour faire croire que je ne me suis pas trompé, à plus de 5 minutes j'assume

donc, on est tous d'accord ! [/edit]