Delphi7.0 自定义动态鼠标源码.rar

Delphi 自定义动态的鼠标,将鼠标的形状变为一个小角形的动画效果,源代码如下: procedure TForm1.Timer1Timer(Sender: TObject); begin if form1.Cursor=1 then form1.Cursor:=2 else form1.Cursor:=1; end; procedure TForm1.FormShow(Sender: TObject); begin screen.cursors[1]:=LoadCursor(hInstance,pChar('RFACE')); screen.cursors[2]:=LoadCursor(hInstance,pChar('LFACE')); form1.Cursor:=1; end;