Discussion :

[PhilLU]

Bonjour,
J'ai Plusieurs onglets dans un TPageControl.
J'utilise OnChange de ce composant pour exécuter des extractions, calculs et affichage de graphes lors de la sélection d'un onglet.
Je souhaite effectuer une action identique (pour rafraîchir l'écran) à l'aide d'un Timer.
Comment faut-il procéder?
Je constate aussi que de sélectionner manuellement le même onglet n'à aucun effet.
Il faut que je sélectionne un autre onglet, puis l'onglet ad-hoc pour que le rafraîchissement fonctionne.
Merci pour vos conseils ;-)
Phil

[retwas]

Bonjour,
J'ai Plusieurs onglets dans un TPageControl.
J'utilise OnChange de ce composant pour exécuter des extractions, calculs et affichage de graphes lors de la sélection d'un onglet.
Je souhaite effectuer une action identique (pour rafraîchir l'écran) à l'aide d'un Timer.
Comment faut-il procéder?

Utiliser le OnTimer pour changer les onglets c'est franchement pas propre.
Dans le OnChange du TPageControl tu peux appeler tes méthodes.

Code :

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

1
2
3
if PageControl.TabIndex = CST_ECRAN_TEMPERATURE then
  ChargeTemperature;
 // ...

Et une méthode globale "RefreshAll" qui les appelles toutes. Dans le OnTimer tu as juste à l'appeler.

Code :

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

1
2
3
4
5
6
procedure TForm.TimerOnTimer(Sender: TObject);
begin
  Timer.Enabled := False;
  RefreshAll;
  Timer.Enabled := True;
end;

Tu désactives le timer si le traitement prend du temps ça évitera que tu passes dedans sans avoir terminé la première fois.

Je constate aussi que de sélectionner manuellement le même onglet n'à aucun effet.
Il faut que je sélectionne un autre onglet, puis l'onglet ad-hoc pour que le rafraîchissement fonctionne.
Phil

Effectivement, j'ai pris l'habitude de faire la même chose. Si la valeur est identique à la présente cela ne sert à rien d'effectuer les actions.

Code :

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

1
2
3
4
5
6
7
8
procedure SetValue(const aValue: integer);
begin
  if FValue <> aValue then
  begin
    // traitements ...
    FValue := aValue;
  end;
end;

Les méthodes ci-dessus vont rafraîchir tes écrans dans le OnChange (si TabIndex différent du précédent), sinon tu peux ajouter un bouton "Rafraîchir" pour le faire manuellement. Cliquer sur l'onglet pour mettre à jour l'écran c'est pas top

[PhilLU]

Salut Retwas,
Merci pour tes explications ;-)

RefreshAll est supporté par quelle version?

Merci,
Phil

[retwas]

RefreshAll c'est juste un nom de méthode que j'ai donné comme ça.

Par exemple si tu as 3 onglets, le premier pour la température, le deuxième pour l'humidité et le 3eme pour la pollution.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
procedure TMaForm.RafraichirTemperature;
begin
  // raffraichir les données du 1er onglet
end;
 
procedure TMaForm.RafraichirHumidite;
begin
  // raffraichir les données du 2eme onglet
end;
 
procedure TMaForm.RafraichirPollution;
begin
  // raffraichir les données du 3eme onglet
end;
 
procedure TMaForm.RafraichirEcran;
begin
  RafraichirTemperature;
  RafraichirHumidite;
  RafraichirPollution;
end;