关于进程条(100分)

Y

yj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-17

• #1

在用olecontainer链接word文档 如olecontainer1.createlinktofile(‘文
件名’，true)，并激活 olecontainer1.doverb(ovprimary),
在程序起动word文档过程中（需一段时间）如何用progressbar控件显示程序
启动进程？
（要求一边启动word文档，一边显示启动进程，当Tprogressbar进程条到
最大值时，立即显示word文档）

 

K

Kill Night

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-17

• #2

试着使用TThread,通过它你可以在启动文档的时候,启动TThread的进程条,进程条按
照一定的速率向前走,当文档已经启动,进程条到达最大,然后结束TThread.

 

低

低手

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-17

• #3

同意同意

 

Y

yj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-17

• #4

kill night
我对TThread 类不熟悉，你可否提供几行代码。（启动、运行、关闭)

 

K

Kill Night

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-17

• #5

首先添加一个TThread Object:
代码如下：
unit Unit2;
interface
uses
classes;
type
TMyThread=class(TThread)
private
{Private declarations}
protected
procedure Execute;override;
end;
implementation
{TMyThread}
procedure TMyThread.Execute;
begin
{Place thread code here}//执行进度条
end;
end.

在你的程序中使用此单元；
FMyThread:TMyThread;
初始化
FMyThread:=TMyThread.Create(False);

运行
FMyThread.Execute;

关闭
FMyThread.Terminate;

 

K

Kill Night

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-17

• #6

忘了告诉你，最后执行
FMyThread.Free;

 

低

低手

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-17

• #7

好像FMyThread.Execute 有问题;
用FMyThread.ruesume ;..

 

W

wint

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-17

• #8

不好办，你不知道LINK的文件是大是小，
你这儿走完了，它那边WORD还没LOAD一半。。。。。。

 

C

Chenlili

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-17

• #9

看看delphi下quicksort的例子.

 

W

wjiachun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-15

• #10

接受答案了.