请大家帮帮忙，200分的问题阿！(200分)

A

Alan_yan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-11

• #1

我想在执行一条比较费时的语句后显示一个消息窗口msgfrm，执行后隐藏
在下一条语句执行后再显示，执行后隐藏，程序结束的时候再释放该msgfrm。
msgfrm上面还有一个按钮可以中断作为全局变量的oraclesession的执行。
我想把建立和显示窗口的代码作为一个线程来作，请问该怎么作呢？
我想要具体一点的，最好有源码！

 

A

antic_ant

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-11

• #2

关注

 

吴

吴剑明

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-11

• #3

在线程的execute里写：
while truedo
begin
form.create
show
//you code
form.free
end
如果要并行访问窗口上的东西，可以加临界区.

 

一

一哥

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-29

• #4

？？？？？？？？？？？？？

 

V

varphone

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-01

• #5

unit xxx;
type
Tmsgthread = class(Thread)
private
msgform:TForm;
contructor create()
begin
msgform := TForm.Create(nil);
msgform.hide;
end;
destructor destroy()
begin
msgfrom.close;
msgform.free;
end;
----------------------------
uses xxx;
procedure xxx.xxxClick(...)
var
thread:TMsgThread;
begin
thread := TmsgThread.Create;
end;

 

刀

刀剑如梦

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-17

• #6

Study