message sur requete

**looping** · 30/09/2011, 17h33

bonjour,

j'ai une requete sql (avec des Ibquery) qui dure quelque secondes.

j'aimerais mettre un message du style ' calcul en cours . attendez un instant'

Et bien sur , je souhaite que le message disparaisse quand la requete est fini.
(le requete s'affiche dans un dbgrid)

Quel est le meilleur moyen d'implémenter et de synchroniser le message avec la fin de requete.

merci

**Ph. B.** · 30/09/2011, 17h54

Bonjour,

Une méthode très simple et tout à fait synchrone :
je suppose que tu as un label sur ta form active. Il peut être coloré en rouge, en gras, d'une taille de police plus grande que d'habitude

Code :

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

1
2
3
4
5
6
7
8
9
  try
    Label1.Caption := 'Recherche en cours...';
    Screen.Cursor := crHourGlass;
    Label1.Refresh;
    IbQuery1.Open;
  finally
    Label1.Caption := '';
    Screen.Cursor := crDefault;
  end;