开始进行一个费时的处理(查询)，鼠标变成漏斗，窗口上其他按钮都暂时都不响应，如何实现啊

Question

按下某个按钮，开始进行一个费时的处理(查询)，鼠标变成漏斗，窗口上其他按钮都暂时都不响应，
请问要实现鼠标变形状同时所有按钮都不响应要怎么实现呢？  

Answer 1

  //写个大概意思吧
  try
     Screen.Cursor:=crHourGlass;
     ......
     dm.ADOQuery.Open;
     btnStart.Enabled:=false;
     btnClose.Enabled:=false;
     ......
   finally
     btnStart.Enabled:=true;
     btnClose.Enabled:=true;
     Screen.Cursor:=crDefault;
   end;
  

Answer 2

呵呵，修改一下，那样按扭很多的话，不是要写很多语句，很是麻烦啊try
  Screen.Cursor := -11;
  Self.Enabled := false; //设置为不可用应该放在打开之前，否则放在打开之后，根本没有效果。
  Query.open;
finally
  Screen.cursor := 0;