Mauscursor verändern

[Quick_silver]

Wie kann ich den Mauscursor einfach nur in einen Zeiger mit uhr verwandeln? (crHourGlass).

Nur damit man sieht das das Programm beschäftigt ist.

Vielen Dank

[nailor]

Delphi-Quellcode:

Cursor := crHourGlass;

wobei er dann über Buttons uä wieder zum normalen Pfeil wird.

[MrSpock]

Hallo Quick_silver,

wenn das Symbol unabhängig von der Position des Mauszeigers angezeigt werden soll, musst du die Screen.Cursor Eigenschaft setzen. Das Ganze sollte in einen try ... finally Block gepackt werden, so dass auch bei einem Fehler der Mauszeiger wieder zurückgestzt wird.

Delphi-Quellcode:

try
   Screen.Cursor := crHourGlas;
...
finally
   Screen.Cursor := crDefault;
end;