Mauscursor ausblenden/setzen
Verwende die Eigenschaft Cursor einer von TControl abgeleiteten Komponente, um die Art des Cursors zu steuern. Die Eigenschaft gilt jeweils für dieses Control, unter/übergeordnete Komponenten sind davon nicht betroffen.
Button1.Cursor := crHourGlass; //Sanduhr als Mauszeiger über dem Button anzeigen
Es gibt bereits einige vorgefertigten Cursorgrafiken. Die entsprechenden Konstanten findest du in der Unit Controls bzw. in der Onlinehilfe unter dem Stichwort „TCursor (Typ)“.Möchte man den Mauszeiger innerhalb der gesamten Anwendung setzen, verwendet man die Eigenschaft Cursor des Screenobjektes:
Screen.Cursor := crHandPoint;
Die Cursor-Einstellung Screen-Objekt ist den Einstellungen der einzelnen Komponenten übergeordnet. Der Wert crDefault setzt den Cursor wieder auf seinen ursprünglichen Wert zurück. In der Onlinehilfe befindet sich unter dem Stichwort „TScreen,Cursor“ ein Beispiel, wie man aus einer Resourcendatei seinen eigenen Cursor laden kann.
Möchte man den Cursor in der gesamten Anwendung ausblenden, steht dem Programmierer die API-Funktion ShowCursor zur Verfügung. Übergibt man der Funktion False als Parameter, wird der Cursor versteckt, bei True taucht dieser wieder auf. Man kann über die Maus nach wie vor mausorientiere Ereignisse auslösen.