Animated Cursors

animierte Cursor benutzen

Frequently Asked Questions
– Using an animated cursor.

Question:
How do use an animated cursor?

Answer:
You will first need to get a handle to a Windows
cursor and assign it to the TScreen component’s Cursors array.

Predefined cursors start at a negative index, and user defined
custom cursors are assigned positive indexes.

The following is an example of a Delphi form that uses an animated cursor:

[code lang=”delphi”]procedure TForm1.Button1Click(Sender: TObject);
var
h : THandle;
begin
h := LoadImage(0,
‘C:\TheWall\Magic.ani’,
IMAGE_CURSOR,
0,
0,
LR_DEFAULTSIZE or
LR_LOADFROMFILE);
if h = 0 then ShowMessage(‘Cursor not loaded’) else begin
Screen.Cursors[1] := h;
Form1.Cursor := 1;
end;
end;
[/code]

[tags]Delphi, Graphic[/tags]