[Résolu] Une form qui ne se rafraîchit pas. Pourquoi ?

[Arnaud]

Bonjour à tous

J'utilise le composant JvBalloonHint . Parfois il affiche le texte, parfois non. Je l'appelle pourtant exactement de la même façon à chaque fois. J'ai même essayé de mettre un TTimer et le forcer à rafraîchir la Form, rien n'y fait.

Un exemple :

Procedure Aff_Hint_Documents;
begin
 
      Ctrl_Pointe := Form1.Lab_Aff_Dsq_Sauvegarde;
      Form1.JvBalloonHint1.DefaultBalloonPosition := bpRightDown;
      Form1.JvBalloonHint1.ActivateHint(Ctrl_Pointe, 'Copie en cours', 'SAUVEGARDE DES DOCUMENTS : VEUILLEZ PATIENTER', 100000);
 
end;

fonctionne systématiquement. Mais ceci ( pourtant écrit de la même façon) ne fonctionne pas :

Procedure Aff_Hint_Telechargements;
begin
      Ctrl_Pointe := Form1.Btn_Telechargements; 
      Form1.JvBalloonHint1.DefaultBalloonPosition := bpRightDown;
      Form1.JvBalloonHint1.ActivateHint(Ctrl_Pointe, 'Copie en cours', 'SAUVEGARDE DES TELECHARGEMENTS : VEUILLEZ PATIENTER', 100000);
 
end;

Et, à 'exécution, ça donne ça :

Pour la Form, j'ai introduit un TTimer, avec Form.Refresh à chaque intervalle. Ca a l'ai réglé. Mais pour le JvBalloonHint, non.

 

Le TTimer :

procedure TForm1.Timer_RaffraichirTimer(Sender: TObject);
begin
      Form1.Update;         
end;

Pourquoi ?

Merci

[frantzgac]

Je suggère d'ajouter Application.ProcessMessages()

[Arnaud]

Bonjour, Frantzgac.

 

Ah ... Après Form1.JvBalloonHint1.ActivateHint , ou Form1.Update du Timer ? Je vais voir ça... Je n'y pensais pas du tout.

[Arnaud]

Purée ! Ca marche !!

 

Merci Frantzgac