怎么判斷線程是否結束呢﹖ ( 积分: 100 )

Tthread有個Terminated的屬性判斷﹐為什么它的子類不能用這個屬性呢﹖
type
WindowKiller = class(TThread)
protected
procedure Execute;
override;
end;
........
var mythread:WindowKiller;
begin
mythread:=windowKiller.create(false);
end;
我現在要判斷這個mythread是否結束﹐如果沒結束就Terminate﹐結束了就create
查資料說Tthread有個Terminated屬性是結束標志
但是在mythread中怎么不能用Terminated屬性呢﹖Tthread的Terminated屬性是protected而不是私有的﹐應該子類可以訪問的啊。

Tthread有個Terminated的屬性判斷﹐為什么它的子類不能用這個屬性呢﹖
type
WindowKiller = class(TThread)
protected
procedure Execute;
override;
end;
........
var mythread:WindowKiller;
begin
mythread:=windowKiller.create(false);
end;
我現在要判斷這個mythread是否結束﹐如果沒結束就Terminate﹐結束了就create
查資料說Tthread有個Terminated屬性是結束標志
但是在mythread中怎么不能用Terminated屬性呢﹖Tthread的Terminated屬性是protected而不是私有的﹐應該子類可以訪問的啊。

调用mythread.Terminate 这个不就是设置这个了 Terminated
WindowKiller = class(TThread)
protected
procedure Execute;
override;
end;
当然在WindowKiller 里面可以访问到!
但你使用类变量mythread是访问不到的

首先给你一段我写的判断线程是否终止的程序
//判断线程是否释放
//返回值：0-已释放；1-正在运行；2-已终止但未释放；
//3-未建立或不存在
function TFrmMain.CheckThreadFreed(aThread: TThread): Byte;
var
i: DWord;
IsQuit: Boolean;
begin
if Assigned(aThread) then
begin
IsQuit := GetExitCodeThread(aThread.Handle, i);
if IsQuit then
//If the function succeeds, the return value is nonzero.
//If the function fails, the return value is zero.
begin
if i = STILL_ACTIVE then
//If the specified thread has not terminated,
//the termination status returned is STILL_ACTIVE.
Result := 1
else
Result := 2;
//aThread未Free，因为Tthread.Destroy中有执行语句
end
else
Result := 0;
//可以用GetLastError取得错误代码
end
else
Result := 3;
end;

呵呵﹐謝謝兩位﹐解決了~~﹗
Protected屬性只能由子類或友員才能訪問 ﹐它不能直接訪問的﹐除非公布出去﹐或者寫成成員函數
public
property Terminated:boolean read GetTerminated;
****+Ctl+C﹐寫代碼﹕result:=inherited Terminated;
或者寫成員函數﹕
public
GetTerminated:boolean;
代碼﹕result:=terminated;

多人接受答案了。