Difference between revisions of "Cursor/de"
From Lazarus wiki
Jump to navigationJump to searchm |
|||
Line 143: | Line 143: | ||
<syntaxhighlight> | <syntaxhighlight> | ||
Memo1.Cursor := crHourGlass; | Memo1.Cursor := crHourGlass; | ||
+ | </syntaxhighlight> | ||
+ | <br> | ||
+ | Legt für alle Steuerelemente (Controls) die Sanduhr als Mauszeiger fest: | ||
+ | <syntaxhighlight> | ||
+ | var | ||
+ | intCursor: integer = 0; | ||
+ | begin | ||
+ | //showmessage(funUmgebungsvariable); | ||
+ | |||
+ | for intCursor := 0 to Form1.ControlCount - 1 do | ||
+ | Form1.Controls[intCursor].Cursor := crHourGlass; | ||
+ | end; | ||
</syntaxhighlight> | </syntaxhighlight> | ||
<br> | <br> |
Revision as of 06:50, 21 April 2013
│
Deutsch (de) │
English (en) │
suomi (fi) │
Mauszeigerkonstanten
Auflistung der Mauszeigerkonstanten
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
//showmessage(funUmgebungsvariable);
for intCursor := 0 to Form1.ControlCount - 1 do
Form1.Controls[intCursor].Cursor := crHourGlass;
end;
--Olaf 11:01, 19 April 2013 (UTC)