Un Pagecontrol inactif

Bonjour

Encore une question

J'ai une application avec un composant PageControl. Je désire savoir s'il est possible de déactiver le déplacement d'une page vers une autre sur l'appuie des onglets. J'ai mis à la place des boutons.

Une solution serait idéale.

Merci de vos pistes

Salut,

Oui c'est possible ! avec l'évènement OnChanging.

Code:

---

1 2 3 4 5 6 7 8

procedureTForm1.PageControl1Changing(Sender:TObject;varAllowChange:Boolean); begin if((Sender as TPageControl).ActivePage = TabSheet1) then AllowChange := (TaCondition) else AllowChange := True; end;

---

Voilou, ceci est extrait de l'aide de Delphi 7...
@+