如题, 关键是在执行SQL时,点不到"取消",除非它执行完毕了 。

解决方案 »

  1.   

    在线程里没有办法创建新的自定义TForm2,但TForm就可以:
    //-------------------
    procedure TMyThread.Execute;
    begin
    with TForm.Create(Application) do
      try
        formstyle:=fsStayOnTop;
        ShowModal;
      finally
        free;
      end;
    end;把上面with那旬换成 TForm2.Create(Application) 就会出错,说 canvas does not allow drrawing.
      

  2.   

    TO   hellolongbin(一个人[散分贴一律征收20%灌水税]) :
       请问可不可以给个框架,如何使用你所说的ProcessMessages,应该用在哪里:ADOQuery1.close;
    ADOQuery1.SQL.clear;
    ADOQuery1.SQL.add('exec PROC');
    ADOQuery1.open;
      

  3.   

    创建两个线程,一个线程执行SQL,创建一个停止按钮,你想什么停止都行
      

  4.   

    TO  baronyang(魔蝎) :
    试过的,不行.