Cursor Typ wird nicht aktualisiert

[DieHardMan]

Ich änder den Cursor von meiner Form:

Code:

Form1.Cursor := crHourGlass;

und später dann wieder zurück:

Code:

Form1.Cursor := crDefault;

Jetzt hat aber nachdem die Prozedur durchlaufen wurde, der Cursor immer noch die Form der Sanduhr, erst wenn ich die Maus einen Pixel bewege, ändert sich der Cursor.

Ich habs mit:

Code:

Application.ProcessMessages;
Form1.Refresh;
Form1.Repaint;

probiert, hat aber alles nichts geholfen und 'SetCursorPos' ist mir zu unelegant.

[Stanlay Hanks]

Also ich hab das grade probiert:

Delphi-Quellcode:

IF Form1.Cursor = crHourGlass THEN Form1.Cursor := crDefault
ELSE Form1.Cursor := crHourGlass;

geht bei mir wunderbar. Poste doch mal ein Stück Code, wo du das aufrufst.