Mouse Cursor ändert wärend einer procedure?

[Tau]

Hallo zusammen

wie muss ich es anstellen das während eines Ablaufs einer Procedure
der Mouse Cursor ändert?

Nur wenn ich am Anfang der Procedure und am ende den Cursor wechsle das funktioniert nicht so ganz.

z.B.

Delphi-Quellcode:

Form1.Cursor := crSQLWait;

….mach irgend etwas 

Form1.Cursor := crDefault;

ich kann keine Veränderung vom Mouse Cursor feststellen. Auch wenn die Procedure
1 - 8 Sekunden geht.

Kennt jemand ein Zauberwort wo ich es nachlesen kann.

Für einen Tipp währe ich sehr dankbar.

schone grüsse
Tau

[Grumble]

hi,

versuch mal

screen.cursor:=crhourglass;

[shmia]

Zitat von Tau:

wie muss ich es anstellen das während eines Ablaufs einer Procedure
der Mouse Cursor ändert?

Du musst die globale Variable Screen verwenden:

Delphi-Quellcode:

Screen.Cursor := crSQLWait;
Application.ProcessMessages;
// irgendwas tun
.....
Screen.Cursor := crDefault;

[Tau]

Hallo Leute

DANKE für das Zauberwort ( Screen.Cursor )

schöne Grüsse
Tau