由 TPanel 为父的 TButton 的 TThread 创建

Question

我有一个关于在主线程 TPanel 上单独创建主线程 TButton 的问题。 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 可能不起作用，但我不确定。

任何指针^？ 哈哈。

-i2programmer

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;