怎样实现在作大量运算时显示一个模态的带有进度条的对话框dlg，运算完毕自动关闭(50分)

I

imstev

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-26

• #1

我的想法是开始计算前调用 dlg.ShowModal;
在dlg 的OnActive()中
begin
Cal();//计算函数
Close;
end;
可是在OnActive()中调用Close 没法关闭该对话框。
请问除了用计时外还有什么方法.
例如怎么用PostMessage()等？

 

L

LeeChange

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-26

• #2

用一个定时器来做
Result:=Cal();
if Result=100 then
Close

 

T

Tabs

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-26

• #3

为什么要显示为模态？？？首先你的设计思路有问题。

 

I

imstev

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-26

• #4

用模态对话框是为了更直观显示计算的进度，同时避免用户在进行计算时
作多余的操作

 

一

一剑封喉

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-27

• #5

什么叫模态，给讲讲。

 

D

DreamTiger

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-27

• #6

计算放到Thread中，在OnTerminate中关闭模态窗口

 

B

Brave

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-27

• #7

同意，对话框模态窗口显示后，记时1毫秒，然后触发calc（）
在calc（）中完成时，关闭窗口

 

W

wolaixue

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-27

• #8

procedure dlg.FormPaint(Sender: TObject);
begin
OnPaint:=nil;
Cal();//计算函数
Close;
end;

 

W

wolaixue

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-27

• #9

建立dlg之后:
dlg.OnPaint:=dlg.FormPaint;
dlg.ShowModal;

 

G

goddy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-27

• #10

int i=0;
RE->Lines->Add(DateTimeToStr(Now())+":琩тTemp??ゅン");
//Θネ羬?ゅン?
while(FileExists(ExtractFilePath(Application->ExeName) + "temp"+"//"+AnsiString(i)+".z")||FileExists(ExtractFilePath(Application->ExeName) + "temp"+"//"+AnsiString(i)))
{
Press->CGPress->AddProgress(5);//进度条前进
FMain->Cursor=crHourGlass;
i++;
}
Press->CGPress->Hide()//进度条关闭

 

B

Brave

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-28

• #11

我找到一个办法，用自定义消息，看下面的代码。
计算完成后，发送一个消息，在接收到该消息的事件中关闭窗口。
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
const
WM_MyClose = WM_User+100;

type
TForm2 = class(TForm)
procedure FormShow(Sender: TObject);
private
{ Private declarations }
procedure WMclose(var Message: TMessage);
message WM_MyClose;
public
{ Public declarations }
end;

var
Form2: TForm2;
implementation
{$R *.DFM}
procedure TForm2.FormShow(Sender: TObject);
begin
calc();
PostMessage(Form2.Handle, WM_Myclose, 0, 0);
end;

procedure TForm2.WMclose(var Message: TMessage);
begin
close;
end;

end.

 

L

loshita

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-17

• #12

还没看懂已经晕了 我不太明白如何在程序计算时 进度条可以正常运行不受影响
有必要用Thread吗?

 

L

lonelybug

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-14

• #13

up

 

K

knifepj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-17

• #14

如何实现在完成了任务后自动关闭当前进度提示窗口？

 

小

小雨哥

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-17

• #15

NND。你连邮件都不接收，呵呵，我删除！！！(解答方案已删除)