如何在点了BUTTON或SPEEDBUTTON按钮后进行后台处理数据的时候设置鼠标为繁忙的样子?

Question

如题

Answer 1

var
  start: boolean=false;
procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  screen.Cursor := crDefault;
end;procedure TForm1.Button2Click(Sender: TObject);
var
  i: integer;
begin
screen.cursor := crHourGlass;try
  for i := 0 to 100000000 do
  begin
    //do sth
    start := true;
    application.ProcessMessages;
  end;
finally
  screen.cursor := crDefault;
  start := false;
end;
end;procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if start then
  screen.cursor := crHourGlass;
end;

Answer 2

呵呵，简单得给你说，就是处理点击事件过程中screen.cursor := crHourGlass;处理结束的时候
screen.cursor := crDefault;，这样就实现了你的要求。呵呵，秋秋也在到处抢分哦，呵呵……

Answer 3

楼上说的方法肯定行.到处都用的.你怎么测试的啊
function Refurbish: Integer;
begin
  try
    screen.cursor := crHourGlass;
    //函数：你要处理的数据
  finally
    screen.Cursor := crDefault;
   end;
end;

Answer 4

那个例子是让你做参考的,思路就跟xjjrocker说的一样.

Answer 5

screen.cursor := crSQLWait;
  if is_mkdm='first' then
  begin
    application.CreateForm(tf_YSGL_FHDCX, f_YSGL_FHDCX);
    f_YSGL_FHDCX.S_BS:='N';
    f_YSGL_FHDCX.ShowModal;
  end
  else
  begin
    application.CreateForm(tf_YSGL_FHDCX, f_YSGL_FHDCX);
    f_YSGL_FHDCX.S_BS:='Y';
    f_YSGL_FHDCX.ShowModal;
  end;
  screen.cursor := crDefault;
这样写不对吗?点了按钮后一闪就没了,窗体却要很长时间才出来.

Answer 6

可是别人的程序中我就根本没有找到他是如何设置的,很郁闷.xjjrocker如果你能解决我的问题,我另外开贴,100分奉献.

Answer 7

delphi好像没有这个功能，或者做得不好。
修改Screen.cursor，仅仅是改变和鼠标视觉外观，并没有达到你所要的要求。因为这个时候“忙”的鼠标指针仍然可以点东西，而不是被禁止点东西。
而VC++的BeginWaitCursor和EndWaitCursor可以很好的完成这项任何。
期待高手进一步做答

Answer 8

TO:xjjrocker.我没有怀疑谁啊,不知道你的那些话是什么意思.只是别人做到的我却做不到,所以很郁闷,那位高手帮我解决先

Answer 9

嗯，你最好研究一下吧，相信对自己有好处的，呵呵，我没别的意思啦，希望你早日解决。
另外想要鼠标显示沙漏同时不能点击任何东西delphi当然可以做到，也许只是你不知道而已，多看看查找资料，相信一旦解决，你一定能感受到很多实实在在的知识。祝你好运，不是不帮忙，的确赶个项目，不好意思啊:)

Answer 10

不知道是我们理解你的问题，还是你没有理解想要问什么。这么多人关心还说每人关心。
这样绝对可以。
function Refurbish: Integer;
begin
  try
    screen.cursor := crHourGlass;
    //函数：你要处理的数据
  finally
    screen.Cursor := crDefault;
   end;
end;

Answer 11

To:foxyy8888,大家说的我测试过.
我用一个button打开一个查询窗体很简单的只有一个查询和一个dbgrid显示结果,我在button中采用如下的语句:
screen.cursor := crSQLWait;
  if is_mkdm='first' then
  begin
    application.CreateForm(tf_YSGL_FHDCX, f_YSGL_FHDCX);
    f_YSGL_FHDCX.S_BS:='N';
    f_YSGL_FHDCX.ShowModal;
  end
  else
  begin
    application.CreateForm(tf_YSGL_FHDCX, f_YSGL_FHDCX);
    f_YSGL_FHDCX.S_BS:='Y';
    f_YSGL_FHDCX.ShowModal;
  end;
  screen.cursor := crDefault;
执行的结果是在查询窗体出来前鼠标一点都没有改变的样子,一闪就过去了,想请大家帮我再想想办法..