Mega Code Archive
Using an animated cursor
<![CDATA[
Title: 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:
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;
]]>