delphi6,在com中创建线程？ (100分)

E

eliotlb1

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-14

• #1

在一个activeform中，用按钮点击事件来生成一个线程，这两个单元都相互引用了，并且在ie6环境下调试
buttonclick事件中只有一句：mylast.Create(false);
线程的procedure mylast.Execute;
begin
ShowMessage('4564646');
FreeOnTerminate:=true;
end;
我在线程类单元中引用了qdialogs;每次我一点按钮，ie自动退出

 

Q

qdyoung

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-15

• #2

如果没有ShowMessage('4564646');呢

 

黎

黎永欢

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-15

• #3

procedure mylast.Execute;
begin
try
try
ShowMessage('4564646');//把它改成 MessageBox('', '4564646', MB_OK;试试
except
//拦节异常
end;
finally
FreeOnTerminate:=true;
end;
end;

 

E

eliotlb1

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-17

• #4

感谢两位的热心回答，但我已经根据两位的建议试验过了，不起作用。请成功在ie中使用
activeform生成一个线程的高手给预指点

 

E

eliotlb1

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-20

• #5

换个方式，在com种如何创建线程