希望显示漏斗型等待鼠标指针！**

zwjcooldd

procedure TSCWDLB.DataGridDblClick(Sender: TObject);
var lStr: string;
begin
  lStr := TSQLDataSet(DataSetBrokerWJSCXXSJJ.DataSet).FieldByName('WJWLMC').AsString;
  if trim(lStr) <> '' then
    Borland.Delphi.ShellAPI.ShellExecute(0, 'open', lStr, '', '', borland.Delphi.Windows.Sw_ShowNormal);
end;

我用上面的代码通过双击打开服务器上的文件，希望能双击时候显示等待的鼠标指针，怎么做》？

zwjcooldd

必须在文档没打开的时候显示，打开了就恢复原来的指针

lixy

procedure TMainForm.Button1Click(Sender: TObject);
begin
    Forms.Screen.Cursor:=-11;
end;

procedure TMainForm.Button2Click(Sender: TObject);
begin
   Forms.Screen.Cursor:=0;
end;

atiger

??无论结果如何，都请反馈一下

atiger

结，有问题请重新开帖