你可以这样解决。如果你一定要在你的线程依靠子窗体的,你可以在子窗体关闭时,关闭线程的。
//建线程
var
Fhandle: Thandle;
sid: Cardinal;
Fhandle := begin
Thread(nil,0,StcCallbackproc1,Self,0,sid);
//退出时关闭你所开的线程
if Fhandle <> 0 then
begin
if WAIT_TIMEOUT = WaitForSingleObject(Fhandle,1000) then
TerminateThread(Fhandle, 0);
CloseHandle(Fhandle);
end;
请给分.