
	Delphi Tips&Tricks
	Delphi Software
	.Net Software
	Utilities
	Related Projects

	Follow Us


	Share This Page
	Tweet

Use animated cursors - Others - Tips & Tricks - Greatis Delphi Pages

Use LoadCursorFromFile procedure to set your cursor in a list of cursores.
Use for this Cursors and Cursor properties of TScreen class.


procedure TForm1.FormCreate(Sender: TObject);
const
  MyCursor=1;
begin
  Screen.Cursors[MyCursor]:=LoadCursorFromFile('C:\Shuttle.ani');
  Screen.Cursor:=MyCursor;
end;

For more: Delphi Help
Download source

Delphi books recommended by Amazon.com

More Delphi programming books on Amazon.com