TPage controle

Question

Bonjour



Aillant chercher sur la toille je n'ai pas trouver mon bonheur, je m'explique :

j'ai sur ma form un pagecontrol avec 3 tabsheet et 3 bouton.

J'aimerais dans un premier temp cacher les onglets 
dans le second plan, j'aimerais aficher un des onglets en cliquant sur ce boutton

coordialement

korgis · Answer

Salut,

procedure TForm1.Button1Click(Sender: TObject);
begin
  TabSheet1.TabVisible := not TabSheet1.TabVisible;
end;

eclems · Answer

merci mais jpense que jvai adopter la methode tpanel

korgis · Answer

merci mais jpense que jvai adopter la methode tpanel 

Heu ?

cs_cantador · Answer

procedure TForm1.FormCreate(Sender: TObject);
var
  i: integer;
begin
  for i := 0 to PageControl1.PageCount - 1 do
    TTabSheet(PageControl1.Pages[i]).TabVisible := false;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  TTabSheet(PageControl1.Pages[0]).TabVisible := not (TTabSheet(PageControl1.Pages[0]).TabVisible);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  TTabSheet(PageControl1.Pages[1]).TabVisible := not (TTabSheet(PageControl1.Pages[1]).TabVisible);

end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  TTabSheet(PageControl1.Pages[2]).TabVisible := not (TTabSheet(PageControl1.Pages[2]).TabVisible);
end;


un peu barbare quand même..

cantador

TPage controle

4 réponses

Votre réponse

Discussions similaires