Цитата:
Сообщение от NumLock
ну поток наверное создать нужно
|
Привожу пример кода с самого начала :
Код:
var
MyClientThread: TMyClientThread;
...
procedure TForm1.FormCreate(Sender: TObject);
begin
MyClientThread:=TMyClientThread.Create(true);
MyClientThread.FreeOnTerminate:=true;
MyClientThread.Priority:=tpLower;
MyClientThread.Resume;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
MyClientThread.Terminate;
end;
procedure TMyClientThread.Execute;
begin
while Terminated do
begin
ShowMessage('Вы закрыли поток');
end;
end;
......
И после нажатия Button1 вываливаеться ошибка.
ПОчему ошибка ?