Главная страница | назад





Article #15580: Using an animated cursor.

 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