为什么多线程退出时提示错误类EOSError
错误类EOSError,错误信息:'System Error Code:1400 无效的窗口句柄'

多线程更新主窗体的caption,点停止线程后,退出提示上面的错误

线程开始
procedure TForm1.Button1Click(Sender: TObject);
begin
myThread:=TMyThread.Create(true);
myThread.Resume;
end;


线程停止
procedure TForm1.Button2Click(Sender: TObject);
begin
myThread.Terminate;
end;



unit uMyThread;

interface

uses
Classes,Windows,SysUtils;

type
TMyThread = class(TThread)
private
protected
procedure Execute; override;
end;

implementation

uses Unit1;

procedure TMyThread.Execute;
var
i:Integer;
begin

Form1.PageControl1.ActivePageIndex:=1;
for i:=1 to 10000 do
begin
if Terminated then Break;
Sleep(50);
Form1.Caption:=inttostr(i);
end;


end;

end.


为什么呢?

[解决办法]
Form1.PageControl1.ActivePageIndex:=1;
改成用同步方法

private
procedure xx();
...

procedure TMyThread.xx();
begin
Form1.PageControl1.ActivePageIndex:=1;
end;

procedure TMyThread.Execute;
var
i:Integer;
begin
synchronize(xx);
for i:=1 to 10000 do
...
[解决办法]
改成发送消息吧 发给给窗口或线程 不用同步函数
如果需要传递内存地址 协商好由谁释放就可
[解决办法]
将与UI有关的操作放在一个过程中，最后synchronize一次即可