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)
 
(11 intermediate revisions by one other user not shown)
Line 1: Line 1:
 
{{Cursor}}
 
{{Cursor}}
 
<br>
 
<br>
Folgende Pascalanweisung legt für die gesamte Anwendung eine Sanduhr als Mauszeiger (Cursor) fest:<br>
+
Zurück zu den [[Additional information/de|Zusätzlichen Informationen]].<br>
<syntaxhighlight>
 
Screen.Cursor := crHourGlass;
 
</syntaxhighlight>
 
<br>
 
 
<br>
 
<br>
Die häufigsten Mauszeiger:<br>
+
__TOC__
 +
=Mauszeigerkonstanten=
 +
==Auflistung der Mauszeigerkonstanten==
 
<table border="1">
 
<table border="1">
 
   <tr>
 
   <tr>
Line 17: Line 15:
 
     <td>crDefault</td>
 
     <td>crDefault</td>
 
     <td align="right">0</td>
 
     <td align="right">0</td>
     <td>[[Image:crArrow.png]]<td>
+
     <td>[[Image:crArrow.png]]</td>
 
   </tr>
 
   </tr>
 
   <tr>
 
   <tr>
Line 29: Line 27:
 
     <td>crArrow</td>
 
     <td>crArrow</td>
 
     <td align="right">-2</td>
 
     <td align="right">-2</td>
     <td>[[Image:crArrow.png]]<td>
+
     <td>[[Image:crArrow.png]]</td>
 
   </tr>
 
   </tr>
 
   <tr>
 
   <tr>
 
     <td>crCross</td>
 
     <td>crCross</td>
 
     <td align="right">-3</td>
 
     <td align="right">-3</td>
     <td>[[Image:crCross.png]]<td>
+
     <td>[[Image:crCross.png]]</td>
 
   </tr>
 
   </tr>
 
   <tr>
 
   <tr>
 
     <td>crIBeam</td>
 
     <td>crIBeam</td>
 
     <td align="right">-4</td>
 
     <td align="right">-4</td>
     <td>[[Image:crIBeam.png]]<td>
+
     <td>[[Image:crIBeam.png]]</td>
 
   </tr>
 
   </tr>
 
   <tr>
 
   <tr>
 
     <td>crSize</td>
 
     <td>crSize</td>
 
     <td align="right">-22</td>
 
     <td align="right">-22</td>
     <td>[[Image:crSize.png]]<td>
+
     <td>[[Image:crSize.png]]</td>
 
   </tr>
 
   </tr>
 
   <tr>
 
   <tr>
 
     <td>crSizeNESW</td>
 
     <td>crSizeNESW</td>
 
     <td align="right">-6</td>
 
     <td align="right">-6</td>
     <td>[[Image:crSizeNESW.png]]<td>
+
     <td>[[Image:crSizeNESW.png]]</td>
 
   </tr>
 
   </tr>
 
   <tr>
 
   <tr>
 
     <td>crSizeNS</td>
 
     <td>crSizeNS</td>
 
     <td align="right">-7</td>
 
     <td align="right">-7</td>
     <td>[[Image:crSizeNS.png]]<td>
+
     <td>[[Image:crSizeNS.png]]</td>
 
   </tr>
 
   </tr>
 
   <tr>
 
   <tr>
 
     <td>crSizeNWSE</td>
 
     <td>crSizeNWSE</td>
 
     <td align="right">-8</td>
 
     <td align="right">-8</td>
     <td>[[Image:crSizeNWSE.png]]<td>
+
     <td>[[Image:crSizeNWSE.png]]</td>
 
   </tr>
 
   </tr>
 
   <tr>
 
   <tr>
 
     <td>crSizeWE</td>
 
     <td>crSizeWE</td>
 
     <td align="right">-9</td>
 
     <td align="right">-9</td>
     <td>[[Image:crSizeWE.png]]<td>
+
     <td>[[Image:crSizeWE.png]]</td>
 
   </tr>
 
   </tr>
 
   <tr>
 
   <tr>
 
     <td>crUpArrow</td>
 
     <td>crUpArrow</td>
 
     <td align="right">-10</td>
 
     <td align="right">-10</td>
     <td>[[Image:crUpArrow.png]]<td>
+
     <td>[[Image:crUpArrow.png]]</td>
 
   </tr>
 
   </tr>
 
   <tr>
 
   <tr>
 
     <td>crHourGlass</td>
 
     <td>crHourGlass</td>
 
     <td align="right">-11</td>
 
     <td align="right">-11</td>
     <td>[[Image:crHourGlass.png]]<td>
+
     <td>[[Image:crHourGlass.png]]</td>
 
   </tr>
 
   </tr>
 
   <tr>
 
   <tr>
 
     <td>crDrag</td>
 
     <td>crDrag</td>
 
     <td align="right">-12</td>
 
     <td align="right">-12</td>
     <td>[[Image:crDrag.png]]<td>
+
     <td>[[Image:crDrag.png]]</td>
 
   </tr>
 
   </tr>
 
   <tr>
 
   <tr>
 
     <td>crNoDrop</td>
 
     <td>crNoDrop</td>
 
     <td align="right">-13</td>
 
     <td align="right">-13</td>
     <td>[[Image:crNoDrop.png]]<td>
+
     <td>[[Image:crNoDrop.png]]</td>
 
   </tr>
 
   </tr>
 
   <tr>
 
   <tr>
 
     <td>crHSplit</td>
 
     <td>crHSplit</td>
 
     <td align="right">-14</td>
 
     <td align="right">-14</td>
     <td>[[Image:crHSplit.png]]<td>
+
     <td>[[Image:crHSplit.png]]</td>
 
   </tr>
 
   </tr>
 
   <tr>
 
   <tr>
 
     <td>crVSplit</td>
 
     <td>crVSplit</td>
 
     <td align="right">-15</td>
 
     <td align="right">-15</td>
     <td>[[Image:crVSplit.png]]<td>
+
     <td>[[Image:crVSplit.png]]</td>
 
   </tr>
 
   </tr>
 
   <tr>
 
   <tr>
 
     <td>crMultiDrag</td>
 
     <td>crMultiDrag</td>
 
     <td align="right">-16</td>
 
     <td align="right">-16</td>
     <td>[[Image:crMultiDrag.png]]<td>
+
     <td>[[Image:crMultiDrag.png]]</td>
 
   </tr>
 
   </tr>
 
   <tr>
 
   <tr>
 
     <td>crSQLWait</td>
 
     <td>crSQLWait</td>
 
     <td align="right">-17</td>
 
     <td align="right">-17</td>
     <td>[[Image:crSQLWait.png]]<td>
+
     <td>[[Image:crSQLWait.png]]</td>
 
   </tr>
 
   </tr>
 
   <tr>
 
   <tr>
 
     <td>crNo</td>
 
     <td>crNo</td>
 
     <td align="right">-18</td>
 
     <td align="right">-18</td>
     <td>[[Image:crNo.png]]<td>
+
     <td>[[Image:CrNo.png]]</td>
 
   </tr>
 
   </tr>
 
   <tr>
 
   <tr>
 
     <td>crAppStart</td>
 
     <td>crAppStart</td>
 
     <td align="right">-19</td>
 
     <td align="right">-19</td>
     <td>[[Image:crAppStart.png]]<td>
+
     <td>[[Image:crAppStart.png]]</td>
 
   </tr>
 
   </tr>
 
   <tr>
 
   <tr>
 
     <td>crHelp</td>
 
     <td>crHelp</td>
 
     <td align="right">-20</td>
 
     <td align="right">-20</td>
     <td>[[Image:crHelp.png]]<td>
+
     <td>[[Image:crHelp.png]]</td>
 
   </tr>
 
   </tr>
 
   <tr>
 
   <tr>
 
     <td>crHandPoint</td>
 
     <td>crHandPoint</td>
 
     <td align="right">-21</td>
 
     <td align="right">-21</td>
     <td>[[Image:crHandPoint.png]]<td>
+
     <td>[[Image:crHandPoint.png]]</td>
 
   </tr>
 
   </tr>
 
</table>
 
</table>
 
<br>
 
<br>
 +
==Die Verwendung von Mauszeigerkonstanten==
 +
Folgende Pascalanweisung legt für die gesamte Anwendung eine Sanduhr als Mauszeiger (Cursor) fest:
 +
 +
<syntaxhighlight lang=pascal>
 +
Screen.Cursor := crHourGlass;
 +
</syntaxhighlight>
 +
 +
Folgende Anweisung legt nur für das Formular und nicht für seine Steuerelemente (Controls) die Sanduhr als Mauszeiger (Cursor) fest:
 +
 +
<syntaxhighlight lang=pascal>
 +
Form1.Cursor := crHourGlass;
 +
</syntaxhighlight>
 
<br>
 
<br>
 +
Legt nur für den Button1 die Sanduhr als Mauszeiger fest:
  
{{AutoCategory}}
+
<syntaxhighlight lang=pascal>
 +
Button1.Cursor := crHourGlass;
 +
</syntaxhighlight>
 +
 
 +
Legt nur für das Memo1 die Sanduhr als Mauszeiger fest:
 +
 
 +
<syntaxhighlight lang=pascal>
 +
Memo1.Cursor := crHourGlass;
 +
</syntaxhighlight>
 +
 
 +
Legt für alle Steuerelemente (Controls) die Sanduhr als Mauszeiger fest:
 +
 
 +
<syntaxhighlight lang=pascal>
 +
var
 +
  intCursor: integer = 0;
 +
 
 +
begin
 +
 
 +
  ...
 +
 
 +
  for intCursor := 0 to Form1.ControlCount - 1 do
 +
    Form1.Controls[intCursor].Cursor := crHourGlass;
 +
 
 +
  ...
 +
 
 +
end;
 +
</syntaxhighlight>

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;