Cursor/de

│ Deutsch (de) │ English (en) │ suomi (fi) │

Zurück zu den Zusätzlichen Informationen.

Mauszeigerkonstanten

Auflistung der Mauszeigerkonstanten

Konstante	Integerwert der Konstante	Bild
crDefault	0
crNone	-1	Unsichtbarer Mauszeiger
crArrow	-2
crCross	-3
crIBeam	-4
crSize	-22
crSizeNESW	-6
crSizeNS	-7
crSizeNWSE	-8
crSizeWE	-9
crUpArrow	-10
crHourGlass	-11
crDrag	-12
crNoDrop	-13
crHSplit	-14
crVSplit	-15
crMultiDrag	-16
crSQLWait	-17
crNo	-18
crAppStart	-19
crHelp	-20
crHandPoint	-21

Die Verwendung von Mauszeigerkonstanten

Folgende Pascalanweisung legt für die gesamte Anwendung eine Sanduhr als Mauszeiger (Cursor) fest:

Screen.Cursor := crHourGlass;

Folgende Anweisung legt nur für das Formular und nicht für seine Steuerelemente (Controls) die Sanduhr als Mauszeiger (Cursor) fest:

Form1.Cursor := crHourGlass;

Legt nur für den Button1 die Sanduhr als Mauszeiger fest:

Button1.Cursor := crHourGlass;

Legt nur für das Memo1 die Sanduhr als Mauszeiger fest:

Memo1.Cursor := crHourGlass;

Legt für alle Steuerelemente (Controls) die Sanduhr als Mauszeiger fest:

var
  intCursor: integer = 0;

begin

  ...

  for intCursor := 0 to Form1.ControlCount - 1 do
    Form1.Controls[intCursor].Cursor := crHourGlass;

  ...

end;