如何在 call 一个storedprocedure 前显示 "工作中.."等讯息?

Question

任何方式ok, 文字..gif..swf..avi 都可以.
为什么任何 "set xxx.visible:= TRUE;" 都不成功?包括用 animate 去播放avi.谢谢.

Answer 1

状态栏中显示整个过程，如何？
如果想显示类似窗体的提示，可以'set xxx.visible:= TRUE;'之后加上'Application.ProcessMessages;'，然后再call你的程序其它部分 

Answer 2

很好, 谢谢. 不过只能静态的显示. 以下是我的code. 有可能弄到动态吗?用单一button 去 执行 Animate1.Visible := True; 是可以的. 
以下是我不成功的code.
procedure TMainForm.Button6Click(Sender: TObject);
begin
    Animate1.Visible := True;
    Application.ProcessMessages;
    DBGRID3.DataSource:=Data.ROOT;
    DBGRID3.Visible := True;
    DBGRID1.Visible := False;
    DATA.ADOS_GETROOT.Active := False;
    DATA.ADOS_GETROOT.Parameters.ParamByName('@ITEM').Value := ComboBox1.Text;
    DATA.ADOS_GETROOT.Active := True;
    Label7.Caption := IntToStr(Data.ADOS_GETROOT.RecordCount);
    Animate1.visible := False;end;