DELPHI中有没有像FOX中的WAIT WINDOW " " NOWAIT 和 WAIT CLEAR一样功能的东东？(100分)

子

子龙

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-10-26

• #1

DELPHI中有没有像FOX中的WAIT WINDOW " " NOWAIT 和 WAIT CLEAR一样功能的东东？

 

D

devuser

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-10-26

• #2

请你首先介绍一下Fox的这些东西的具体功能，我们大多没有使用过Fox

 

子

子龙

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-10-26

• #3

WAIT WINDOW "" NOWAIT表示屏幕显示""中的信息，但程序能继续执行下去，主要是一条词句很方便！
WAIT CLEAR表示清除刚才的WAIT WINDOW “” NOWAIT

 

B

BaKuBaKu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-10-26

• #4

在 Delphi 中完全可以模拟做到，定义一个小 Form ，放一个 Panel 在上面，然后写这么个过程：
(Panel 的 Align 设置为 alClient)
Procedure Wait(Msg: string; Nowait: Boolean=True);
begin
FormWait.Panel1.Caption := Msg;
if Nowait then
FormWait.Show
else
FormWait.ShowModal;
end;
FormWait 的位置可以预先定义好，也可以在 Wait 过程里动态设置。
有一点不好模拟的是，Fox 中 Wait 信息出现之后，稍微动一下鼠标或键盘，信息就会消失，
这个在 Windows 中比较繁琐，不过可以用钩子实现。如果想简单地做，就让 Panel 的 Click
事件关闭窗口就行了，反正不重要。

 

卢

卢周

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-10-28

• #5

定义一个Form - frmWait，其位置可用代码控制：
frmWait.Left := ?;
frmWait.Top := ?;
在程序中写入：
frmWait:= TfrmFlash.Create(Application);
frmWait.Show;
frmWait.Update;
//执行任务
frmWait.Free;

 

W

wjiachun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-12-11

• #6

多人接受答案了。

 

D

droprain

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-08-24

• #7

不好意思，我也正有这个问题。以上回答不能令人满意。
但用delphi似乎只有如此了。