TPageControl onchange par programme

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

Citation:

---

Envoyé par 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?

---

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

Code:

---

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:

---

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.

Citation:

---

Envoyé par PhilLU

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:

---

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 :mrgreen:

Salut Retwas,
Merci pour tes explications ;-)

RefreshAll est supporté par quelle version?

Merci,
Phil

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:

---

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;

---