问一下大家，用什么方法可以让程序在运行期间处于不可操作状态！

Question

就是点一个程序，例　出现沙漏一样的图标，这是表示程序在运行当中，这时用户处于不可操作状态！这出何实现！

Answer 1

Screen.Cursor := crHourGlass;
  Form1.Enabled := false;取消
  Form1.Enabled := true;
  Screen.Cursor := crDefault;

Answer 2

hch_45(HCH ~ahong.net~) ，猪阿Form1.Enabled := false已经了，怎么能继续进行
“取消
  Form1.Enabled := true;
  Screen.Cursor := crDefault;”操作那？？？？

Answer 3

Screen.Cursor := crHourGlass;
Form1.Enabled := false;try//add your code herefinally  Form1.Enabled := true;
  Screen.Cursor := crDefault;end;

Answer 4

Screen.Cursor := crHourGlass;
  Form1.Enabled := false;取消
  Form1.Enabled := true;
  Screen.Cursor := crDefault;

Answer 5

Screen.Cursor := crHourGlass;
  Form1.Enabled := false;
  try
   //add code here
    finally    Form1.Enabled := true;
    Screen.Cursor := crDefault;
     except
     showmessage('程序出现错误请退出！');

Answer 6

private  procedure WMNCHitText(var Msg :TMessage); message WM_NCHITEST;
procedure TFrom1.WMNCHitText(var Msg :TMessage); 
begin
  inherited;
  Msg.Result := HTCLIENT;
end;