Discussion :

[Sydaze]

Bonjour,
J'ai une application qui travaille sur une base de donnée, à chaque fois que le programme lance une requête le curseur prend la forme d'un sablier noir et blanc avec SQL marqué dessous. Est t'il possible de changer ce curseur?
Merci

[Soulama]

Code :

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

1
2
3
4
5
6
7
 
   Screen.Cursor:= crHourGlass 
   Try
       Ton traitement ...
   finally
     Screen.Cursor:= crDefault 
   end ;

[Sydaze]

merci, le problème c'est que le programme n'est pas modulaire à ce niveau là, c'est à dire que je devrais placer ce code autour de centaines de traitements.
N'existe t'il pas un évènement détectant l'appel de la méthode ExecSQL d'un TQuery? Il existe pour Open mais je ne le trouve pas pour cette méthode.

[fredoBreton]

Exemple de code pour une appli Delphi5 avec Database1 : TDatabase avec les requetes qui en dépendent

L'objet Dtabase est déconnecter et à la création de la fenetre, on lui applique la propriété du curseur.

Code :

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

1
2
3
4
5
6
7
8
9
//Connection à la base de données
       try
          Database1.Session.SQLHourGlass:=false;
          Database1.Connected:=true;
       except
 
              Msg:='Erreur de connection à la base de données';
              MessageDlg(Msg,mtError,[mbOK],0);
       end;

ça devrait marcher.

A+

[edam]

j'ai jamai vu un sablier avec 'SQL' moi, j'ai utlisé sql des dizéne de fois avec BDE et ADO, bizarre,???

[Lung]

j'ai jamai vu un sablier avec 'SQL' moi, j'ai utlisé sql des dizéne de fois avec BDE et ADO, bizarre,???

Très bizarre.
Moi, j'ai toujours vu un sablier SQL, lors de l'exécution d'une requête.

[Sydaze]

Effet c'est étrange. :
OK, donc la propriété s'applique en fait sur l'objet Tdatabase. Merci.
Dommage tout de même qu'on ne puisse pas modifier l'ensemble des icônes utilisées en une fois.