为窗体创建动画光标.txt

来自「创建异形窗体可以创建出各种各样的异形窗体」· 文本 代码 · 共 11 行

const
crmycursor=1;

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

end.