Difference between revisions of "Cursor/de"
From Free Pascal wiki
Jump to navigationJump to searchm |
|||
Line 149: | Line 149: | ||
var | var | ||
intCursor: integer = 0; | intCursor: integer = 0; | ||
+ | |||
begin | begin | ||
− | + | ||
+ | ... | ||
for intCursor := 0 to Form1.ControlCount - 1 do | for intCursor := 0 to Form1.ControlCount - 1 do | ||
Form1.Controls[intCursor].Cursor := crHourGlass; | Form1.Controls[intCursor].Cursor := crHourGlass; | ||
+ | |||
+ | ... | ||
+ | |||
end; | end; | ||
</syntaxhighlight> | </syntaxhighlight> |
Revision as of 08:00, 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
...
for intCursor := 0 to Form1.ControlCount - 1 do
Form1.Controls[intCursor].Cursor := crHourGlass;
...
end;
--Olaf 11:01, 19 April 2013 (UTC)