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)
 
(10 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>
+
__TOC__
Die häufigsten Mauszeiger:<br>
+
=Mauszeigerkonstanten=
 +
==Auflistung der Mauszeigerkonstanten==
 
<table border="1">
 
<table border="1">
 
   <tr>
 
   <tr>
Line 109: Line 107:
 
     <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>
Line 128: Line 126:
 
</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>
--[[User:Olaf|Olaf]] 11:01, 19 April 2013 (UTC)
+
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 06: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;