TCursor参考示例

atiger

在 Business.Forms.Controls 中，参考代码如下：

  Forms.Screen.Cursor := Business.Forms.Controls.crHourGlass;
  try
    TCommonComponentLibrary.UserSystem.CreateShortcut(FileList, DestPath);
    FileList.Clear;
  finally
    Forms.Screen.Cursor := Business.Forms.Controls.crDefault;
  end;