Discussion :

[freud]

Bonjour tout le monde,

J'ai un certain nombre de pages (5 ou 6) dans un PageControls et n'affiche que deux pages dans un certain contexte alors lorsque je fais :

Code :

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

1
2
3
4
5
6
7
 
For i:=0 to PageControl1.PageCount-1 Do
   Begin
   PageControl1.Pages[i].TabVisible:=false;
   end;
   TabCand.TabVisible:=True;
   TabSport.TabVisible:=True;

Ca me donne un effet de roulement durant le travail du For pour masquer les pages et n'afficher que deux. Y a t-il un moyen SVP pour que cela fasse d'une manière instantané ?

Merci de votre aide.

[Andnotor]

Peut-être en verrouillant le rafraîchissement de la fiche :

Code :

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

1
2
3
4
5
6
7
LockWindowUpdate(Handle);
 
try
  for i := ...
finally
  LockWindowUpdate(0);
end;

[freud]

Super !
Merci Andnotor