interdire un changement de page d'un PageControl Résolu

Question

bonjour,
j'utilise un PageControl (delphi 6) avec pour l'instant 2 Tabsheet. A un certain moment du programme, je voudrais pouvoir interdire l'acc&#232;s de la page 2 mais avoir toujours acc&#232;s aux composants de la page 1. Quel est la fonction enable qui d&#233;sactive la posibilit&#233; de changer d'onglet?

j'ai essay&#233;:
1) PageControl1.Enabled:=false;
je ne peux plus changer de page (c'est ce que je veux) mais je n'acc&#232;de plus au composant de la page active (ce que je ne veux pas)
2) PageControl1.Pages[1].Enabled:=false;
je peux passer de page 1 &#224; la page 2 (ce que je ne veux pas). La 2&#232;me page est fig&#233;s et la 1er page est utilisable.
3) PageControl1.Pages[1].TabVisible:=False;
ma solution temporaire est de rendre invisible la page 2. Je n'ai plus que la page 1 ou je peux intervenir. Mais je ne trouve pas cela bien.

Y a pas une fonction enable qui interdit le changement de page?
Merci

Cirec · Accepted Answer

Salut,

Tu d&#233;clare une variable de type Boolean Ex:

Var Changer : Boolean =  False;

 procedure  TfrMain.PageControl1Changing(Sender: TObject;
  var AllowChange: Boolean); // se produit avant un changement de page
begin
  AllowChange : = Changer; // et en fonction de la valeur de changer il change o&#249; non de page
end;


procedure TfrMain.Button2Click(Sender: TObject);
begin
  Changer := Not Changer; // permet de passer de True &#224; False et inversement juste pour le teste
end;

@+
Cirec

cs_philpas · Answer

merci c'est ce que je voulais

Interdire un changement de page d'un PageControl

2 réponses

Votre réponse

Discussions similaires