Difference between revisions of "Cursor/de"
From Lazarus wiki
Jump to navigationJump to search (Created page with "{{Cursor}} <br> Folgende Pascalanweisung legt für die gesamte Anwendung eine Sanduhr als Mauszeiger (Cursor) fest:<br> <syntaxhighlight> Screen.Cursor := crHourGlass; </synta...") |
m (Fixed syntax highlighting; deleted category already in page template) |
||
| (12 intermediate revisions by one other user not shown) | |||
| Line 1: | Line 1: | ||
{{Cursor}} | {{Cursor}} | ||
<br> | <br> | ||
| − | + | Zurück zu den [[Additional information/de|Zusätzlichen Informationen]].<br> | |
| − | |||
| − | |||
| − | |||
| − | <br> | ||
<br> | <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: | + | <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: | + | <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: | ||
| − | + | <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 |  |
| 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;
