Difference between revisions of "Cursor/de"

From Lazarus wiki
Jump to navigationJump to search
m
m (Fixed syntax highlighting; deleted category already in page template)
 
(One intermediate revision by one other user not shown)
Line 1: Line 1:
 
{{Cursor}}
 
{{Cursor}}
 +
<br>
 +
Zurück zu den [[Additional information/de|Zusätzlichen Informationen]].<br>
 
<br>
 
<br>
 
__TOC__
 
__TOC__
Line 125: Line 127:
 
<br>
 
<br>
 
==Die Verwendung von Mauszeigerkonstanten==
 
==Die Verwendung von Mauszeigerkonstanten==
Folgende Pascalanweisung legt für die gesamte Anwendung eine Sanduhr als Mauszeiger (Cursor) fest:<br>
+
Folgende Pascalanweisung legt für die gesamte Anwendung eine Sanduhr als Mauszeiger (Cursor) fest:
<syntaxhighlight>
+
 
 +
<syntaxhighlight lang=pascal>
 
Screen.Cursor := crHourGlass;
 
Screen.Cursor := crHourGlass;
 
</syntaxhighlight>
 
</syntaxhighlight>
<br>
+
 
Folgende Anweisung legt nur für das Formular und nicht für seine Steuerelemente (Controls) die Sanduhr als Mauszeiger (Cursor) fest:<br>
+
Folgende Anweisung legt nur für das Formular und nicht für seine Steuerelemente (Controls) die Sanduhr als Mauszeiger (Cursor) fest:
<syntaxhighlight>
+
 
 +
<syntaxhighlight lang=pascal>
 
Form1.Cursor := crHourGlass;
 
Form1.Cursor := crHourGlass;
 
</syntaxhighlight>
 
</syntaxhighlight>
 
<br>
 
<br>
 
Legt nur für den Button1 die Sanduhr als Mauszeiger fest:
 
Legt nur für den Button1 die Sanduhr als Mauszeiger fest:
<syntaxhighlight>
+
 
 +
<syntaxhighlight lang=pascal>
 
Button1.Cursor := crHourGlass;
 
Button1.Cursor := crHourGlass;
 
</syntaxhighlight>
 
</syntaxhighlight>
<br>
+
 
 
Legt nur für das Memo1 die Sanduhr als Mauszeiger fest:
 
Legt nur für das Memo1 die Sanduhr als Mauszeiger fest:
<syntaxhighlight>
+
 
 +
<syntaxhighlight lang=pascal>
 
Memo1.Cursor := crHourGlass;
 
Memo1.Cursor := crHourGlass;
 
</syntaxhighlight>
 
</syntaxhighlight>
<br>
+
 
 
Legt für alle Steuerelemente (Controls) die Sanduhr als Mauszeiger fest:
 
Legt für alle Steuerelemente (Controls) die Sanduhr als Mauszeiger fest:
<syntaxhighlight>
+
 
 +
<syntaxhighlight lang=pascal>
 
var
 
var
 
   intCursor: integer = 0;
 
   intCursor: integer = 0;
Line 161: Line 168:
 
end;
 
end;
 
</syntaxhighlight>
 
</syntaxhighlight>
<br>
 
<br>
 
--[[User:Olaf|Olaf]] 11:01, 19 April 2013 (UTC)
 
[[Category:GUI/de]][[Category:Code/de]]{{AutoCategory}}
 

Latest revision as of 07:06, 12 February 2020

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

Zurück zu den Zusätzlichen Informationen.

Mauszeigerkonstanten

Auflistung der Mauszeigerkonstanten

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


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;