Discussion :

[Stevens.Georges]

Bonjour,

Je suis sous Windows XP et Delphi 4.

Le code ci-dessous n'a aucun intérêt en soi et n'a d'autre but que d'illustrer ma question.

Code :

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

1
2
3
4
5
6
7
procedure TForm1.BOKClick(Sender: TObject);
begin
  Cursor:=crHourGlass;
  repeat
  Label1.Caption:='0';
  until Label1.Caption='';
end;

Si je clique sur le bouton BOK je lance la boucle sans fin repeat - until.
Pourquoi le curseur qui était auparavant en flèche (crArrow) reste-t-il en flèche et ne passe pas en sablier (crHourGlass) ?

Merci d'avance à celui ou celle qui pourra m'éclairer.

[Cl@udius]

Salut

Code :

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

Screen.Cursor := crHourGlass;

Dans ton exemple Cursor fait référence à la forme.

@+ Claudius.

[Stevens.Georges]

Merci à Claudius mais tu ne réponds pas à ma question.

Bien sur que crHourGlass référence la forme du curseur.

Ma question est pourquoi lorsque je clique sur le bouton et lance par conséquent la boucle, le curseur affiché reste Flèche et ne devient pas Sablier.

[Cl@udius]

Quand je parlais de forme je ne parlais de la forme du curseur, mais de l'objet TForm, TForm1 en l'occurrence. (je comprends la confusion. )

Il faut utiliser l'objet Screen.

Code :

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

Screen.Cursor := crHourGlass;

Dans ton exemple, le curseur prendra la forme crHourGlass uniquement sur la TForm, et sur aucun des contrôles présents.

@+

[guillemouze]

Voici a peu pres a quoi ressemble ta pile d'appel

Code :

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

1
2
3
4
5
6
 
PostMessage(handle, WM_SETCURSOR, ..., ...)
SetCursor(crHourGlass)
Cursor := crHourGlass;
BtnClick(...)
WMButtonClick(...)

En gros, ta boucle until est traitée par le message WMButtonClick, donc le message WM_SETCURSOR sera traité une fois WMButtonClick terminé. Or, ta boucle fait que tu te bloque sur le premier message, et la demande de changement de curseur est en attente.
pour resoudre le probleme, il faut que tu fasse :

Code :

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

1
2
3
4
5
6
7
8
procedure TForm1.BOKClick(Sender: TObject);
begin
  Cursor:=crHourGlass;
  Application.ProcessMessages; //Pour forcer a traiter le message de changement de curseur
  repeat
  Label1.Caption:='0';
  until Label1.Caption='';
end;