multithreading - 线程正在桌面上书写

Question

我试图创建一个运行时线程，但线程的行为很奇怪，代码没有 Canvas 引用。

procedure TBruteThread.Execute;
var
  j: Integer;
begin
  inherited;
  FreeOnTerminate:=True;
  for j:=1 to StrToInt(Form1.Edit1.Text) do begin
    if Terminated then break;
    Form1.Label2.Caption:=IntToStr(j);
  end;
  Form1.Label2.Caption:='Thread is destroyed';
  Self.Terminate;
end;

有人有任何想法来解决这个奇怪的问题吗？

Answer 1

您的代码的问题在于它违反了 VCL 线程规则。必须从主线程访问 VCL 组件。使用 Synchronize 或 Queue(TThread 的方法)在主线程上执行 GUI 更新。

其他的建议:

在线程方法之外设置 FreeOnTerminate。

调用 Terminate 作为线程方法的最后一个 Action 是没有意义的。线程即将终止。