1,183
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
halfdream 2003-02-28
- 打赏
- 举报
\Borland\Delphi6\Demos\Db\BkQuery
xxzxwl 2003-02-27
- 打赏
- 举报
th.freeonterminate:=true;
xxzxwl 2003-02-27
- 打赏
- 举报
调用线程:
unit unit1;
interface
private
th:=Tthread;
end;
begin
th:=Tthread.create(true);
th.freeonterminate;
th.resume;
end;
放线程:
procedure Tthread.Execute;
begin
......
self.terminate;
end;
unit unit1;
interface
private
th:=Tthread;
end;
begin
th:=Tthread.create(true);
th.freeonterminate;
th.resume;
end;
放线程:
procedure Tthread.Execute;
begin
......
self.terminate;
end;
netfyee 2003-02-27
- 打赏
- 举报
up
sysu 2003-02-27
- 打赏
- 举报
Delphi有自带例子：
\program files\Borland\Delphi6\Help\Examples\Prgrsbar\
\program files\Borland\Delphi6\Help\Examples\Prgrsbar\
fancier 2003-02-27
- 打赏
- 举报
gz
