基本信息

---

下载

   友情提示：（无需注册或充值，赞助后即可获取资源下载链接）

---

     嘿，亲！知识可是无价之宝呢，但咱这精心整理的资料也耗费了不少心血呀。小小地破费一下，绝对物超所值哦！如有下载和支付问题，请联系我们QQ(微信同号)：813200300

本次赞助数额为： 2 元　

支付宝支付

微信支付

   源码介绍

---

unit PMain;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

Const
  crCursor1=1;
  crCursor2=2;
  crCursor3=3;
  crCursor4=4;
type
  TForm1 = class(TForm)
    LoadCursor1: TButton;
    UninstallCursor: TButton;
    LoadCursor2: TButton;
    LoadCursor3: TButton;
    LoadCursor4: TButton;
    procedure FormShow(Sender: TObject);
    procedure LoadCursor1Click(Sender: TObject);
    procedure UninstallCursorClick(Sender: TObject);
    procedure LoadCursor2Click(Sender: TObject);
    procedure LoadCursor3Click(Sender: TObject);
    procedure LoadCursor4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    Procedure InitialCursor;
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.InitialCursor;
var
  CursorPath:String;
begin
  CursorPath:=ExtractFilePath(Application.ExeName);
  Screen.Cursors[crCursor1]:=LoadCursorFromFile(PChar(CursorPath 'Working.ani'));
  Screen.Cursors[crCursor2]:=LoadCursorFromFile(PChar(CursorPath 'Globe.ani'));
  Screen.Cursors[crCursor3]:=LoadCursorFromFile(PChar(CursorPath 'Hourglas.ani'));
  Screen.Cursors[crCursor4]:=LoadCursorFromFile(PChar(CursorPath 'In3d.ani'));
end;

procedure TForm1.FormShow(Sender: TObject);
begin
  InitialCursor;
end;

procedure TForm1.LoadCursor1Click(Sender: TObject);
begin
  Screen.Cursor:=crCursor1;
end;

procedure TForm1.UninstallCursorClick(Sender: TObject);
begin
  Screen.Cursor:=crDefault;
end;

procedure TForm1.LoadCursor2Click(Sender: TObject);
begin
  Screen.Cursor:=crCursor2;
end;

procedure TForm1.LoadCursor3Click(Sender: TObject);
begin
  Screen.Cursor:=crCursor3;
end;

procedure TForm1.LoadCursor4Click(Sender: TObject);
begin
  Screen.Cursor:=crCursor4;
end;

end.