Discussion :

[Didier100]

J'ai un problème pour afficher le curser "HourGlass" durant l'execution d'un programme Delphi 7.

Voici un pétit programme d'example:

Code :

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

1
2
3
4
5
6
7
8
9
procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption := '123';
Form1.Cursor := crHourGlass; //crDefault;
Application.ProcessMessages();
Sleep(5000);
Label1.Caption := '000';
Form1.Cursor := crDefault;
end;

Voila ce qui se passe :

Une fois quand j'appui sur le bouton1 j'ai le label1 qui affiche le texte " 123 ", ceci instanement, par contre le curser ne change pas! J'ai tous le temps le cursor " crDefault ".

Et c'est ça qui est très embettant .... c'est la même chose dans tous mes programmes!

Est-que il y à un bug dans Derlphi 7?

Merci d'avance pour votre aide.

[Cl@udius]

Salut,

Et comme ça ?

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.Caption := '123';
  Screen.Cursor := crHourGlass; //crDefault;
  Application.ProcessMessages();
  Sleep(5000);
  Label1.Caption := '000';
  Screen.Cursor := crDefault;
end;

@+

[tourlourou]

avec le 1° code, il ne doit changer que lorsque la souris bouge, me semble-t'il

[Didier100]

Et oui ça marche avec Screen.Cursor := crHourGlass; etc. enfin dans le programme d'exemple.

GRAND MERCI pour l'information.

tourlourou à éctrit:

Code :

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

avec le 1° code, il ne doit changer que lorsque la souris bouge, me semble-t'il

Dans mon cas ça ne marche pas quand je bouge la souris?

Enfin la fonction "screen" fonctionne dans mon programme d'essai par contre dans un autre de mes programmes cela na pas suffit pas .... Il à fallut que je passe par

Code :

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

1
2
3
4
  Screen.Cursor := crHourGlass; //crDefault;
  Form4.Cursor := crHourGlass;
  Button7.Cursor := crHourGlass;
  Application.ProcessMessages;

Si j'enlève Button7.Cursor := crHourGlass; Le curser hourglass ne s'affiche pas même en bujant ???

Enfin j'ai trouvé la fonction qu'il me faut ... Encore merci

[Sub0]

Enfin j'ai trouvé la fonction qu'il me faut ... Encore merci

Ajouter le tag résolu ?