进度条求助

Question

我想在主窗体执行某一操作时弹出另一窗口显示进度，并且是以showmodel弹出，但只要一showmodel就会停在那里不动，除非把进度条窗口关掉，多线程偶不会用，application.progressmessage也不知道加在那里合适，希望好心人给出关键代码

Answer 1

楼主为什么不尝试放在状态栏里放进度条呢？像WORD那样的，不是更专业吗？
我有例子：
　　//将进度条加入到状态条的第二格里
    ARect := StatusBarMain.ClientRect;
    ProgressBarMain.Parent := StatusBarMain;
    ProgressBarMain.Left   := StatusBarMain.Panels.Items[0].Width + 5;
    ProgressBarMain.Top    := 4;
    ProgressBarMain.Height := StatusBarMain.ClientHeight - 6;
    ProgressBarMain.Width  := StatusBarMain.Panels.Items[1].Width - 8;

Answer 2

ShowModel会屏蔽之前窗口的操作，
所以，我建议，进度条的窗口FormStyle改为fsStayOnTop

Answer 3

我开始是想把他放在进度条里，但是界面上光光的挺难看。FormStyle改为fsStayOnTop我也做了，但这样其它的菜单、工具栏还是可以用，如果每个菜单项都要控制就太笨了

Answer 4

不要用showmodel，将进度条的窗口FormStyle改为fsStayOnTop
或着直接用show把

Answer 5

用show和fsStayOnTop主窗体上的菜单仍然可以用，有别的办法吗？