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;

From the Free Pascal wiki, page "Cursor/de", as it stood on 2020-02-12 after a change by Trev, out of the wiki's dump of 2024-05-26. Copyright stays with the author who wrote it, according to the old wiki's Licensing page. If you have concerns about this material, message the admin.