Question and Answer Database
FAQ580D.txt Using an animated cursor.
Category :VCL
Platform :All
Product :All 32 bit
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;
7/16/98 4:31:28 PM
Last Modified: 01-SEP-99