TThread 创建以 TPanel 为父级的 TButton

Question

我有一个关于在 MainThread TPanel 上单独创建 MainThread TButton 的 TThread 的问题。 TPanel 必须设置为 TButton 的父级。

ButtonVariableName := TButton.Create (
    (Form1.FindComponent('PanelNameString') as TComponent)
   );

ButtonVariableName.Parent := (
    (Form1.FindComponent('PanelNameString') as TWinControl)
  );

不起作用...

ButtonVariableName 位于主线程上。 TButton.Create() 正在单独的 TThread 上调用。 ButtonVariableName.Parent 也从单独的TThread 调用。

FindComponent 似乎是崩溃的原因。当我将其移除并在那里放置其他东西时，它就可以工作了。从单独的 TThread 调用时，FindComponent 可能不起作用，但我不确定。

有什么指点^？ 哈哈。

-i2程序员

Answer 1

您不能从辅助线程使用 VCL。在辅助线程中使用 Synchronize 或 Queue 在主线程上下文中执行 VCL 相关代码。

Answer 2

这应该是一条评论，但我想包含一些代码。首先，您不应该从辅助线程调用任何 VCL，因此不能保证调用 FindComponent 能够正常工作。尽管如此，我怀疑这是你的问题，因为除非你特别幸运，否则你不会得到竞争条件，所以你不会得到错误。

您应该做两件事：

• 将代码放在表单上的一个简单按钮下，对其进行测试，当您知道代码良好时，将其移至后台线程。
• 稍微分解一下你的代码，这样你就可以看到哪里出了问题。当 FindComponent 很容易测试并确定时，无需猜测它是否会失败。

像这样分解你的代码：

var ParentPanel: TWinControl;
    anControl: TControl;
begin
  Assert(Assigned(Form1)); // Assertions are free, you might as well test everything
  anControl := Form1.FindComponent('YourNameHere'); // casting straight to TWinControl raises an error if the returned control is nil
  Assert(Assigned(anControl)); // Make sure we got something
  ParentPanel := anControl as TWinControl; // raises error if the control is not TWinControl
  ButtonVariableName := TButton.Create(ParentPanel);
  ButtonVariableName.Parent := ParentPanel;
end;

Answer 3

type
  TMyThread = class( TThread )
  private
    FOwner : TComponent;
    procedure DoCreateButton;
  public
    constructor Create(AOwner: TComponent);
    procedure Execute; override;
  end;

.....

{ TMyThread }

constructor TMyThread.Create(AOwner: TComponent);
begin
  inherited Create(True);
  FreeOnTerminate := True;

  FOwner := AOwner;
  Resume;
end;

procedure TMyThread.DoCreateButton;
begin
  with TButton.Create(FOwner) do
  begin
    //Set the button Position 
    Left := 5;
    Top := 5;

    Parent := FOwner as TWinControl;
  end;
end;

procedure TMyThread.Execute;
begin
  Synchronize(DoCreateButton);
end;


{ Form1 }

procedure TForm1.btnExecClick(Sender: TObject);
begin
  TMyThread.Create(Panel1);
end;