为窗体创建动画光标.txt

创建异形窗体可以创建出各种各样的异形窗体

const
crmycursor=1;

procedure TForm1.FormCreate(Sender: TObject);
begin
screen.Cursors[crmycursor]:=loadcursorFromFile('C:\WINDOWS\Cursors\dinosau2.ani');
screen.Cursor:=crmycursor;
end;

end.