Discussion :

[BXDSPORT]

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

[Cl@udius]

Salut,

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

Code :

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

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...
@+