T
tanber
Unregistered / Unconfirmed
GUEST, unregistred user!
我在窗口建立的时候,执行如下语句:
with TDownloadThread.Create(IdFTP1,CurrentHostDirect,CurrentLocalDirect)do
OnTerminate := CloseForm;
其中CloseForm代码如下:
procedure TFormLoad.CloseForm(Sender: TObject);
begin
Close();
end;
如果线程正常运行完,这样调用是不会出错的.
但现在我在Form里放了一个按钮,我点击按钮要中止线程,该怎么操作?
with TDownloadThread.Create(IdFTP1,CurrentHostDirect,CurrentLocalDirect)do
OnTerminate := CloseForm;
其中CloseForm代码如下:
procedure TFormLoad.CloseForm(Sender: TObject);
begin
Close();
end;
如果线程正常运行完,这样调用是不会出错的.
但现在我在Form里放了一个按钮,我点击按钮要中止线程,该怎么操作?
