Delphi 11中TRemote类（继承TForm）FormCreate未触发问题咨询

核心根源：FormCreate事件未被执行 #

断点没触发说明TRemote.FormCreate方法从未被调用，最直接的原因是窗体的OnCreate事件没有与该方法绑定。

解决方式：

• 若使用可视化设计器：选中TRemote窗体，在对象查看器的「事件」标签中，找到OnCreate事件，选择绑定TRemote.FormCreate方法。
• 若纯代码创建窗体：需手动为事件赋值，示例：

  var
    RemoteForm: TRemote;
  begin
    RemoteForm := TRemote.Create(nil);
    RemoteForm.OnCreate := RemoteForm.FormCreate; // 手动绑定事件
    RemoteForm.Show;
  end;
  

动态创建ButtonPath1不显示的问题 #

即便FormCreate正常执行，你的代码也可能看不到控件：

• 刚创建的TButtonPath默认Width和Height通常为0，SetBounds(50, 50, ButtonPath1.Width, ButtonPath1.Height)等于设置宽高为0，自然无法显示。
• 需替换为具体数值，例如：ButtonPath1.SetBounds(50, 50, 120, 40);

按钮OnClick绑定失效的潜在问题 #

若后续FormCreate正常执行，但按钮点击无响应，注意：

• Components集合仅包含直接属于窗体的组件，若按钮放在TPanel、TGroupBox等容器控件内，遍历Components无法找到这些按钮。
• 可通过递归遍历所有容器组件来绑定事件，示例代码：

  procedure TRemote.AttachClickHandlers(AContainer: TComponent);
  var
    I: Integer;
  begin
    for I := 0 to AContainer.ComponentCount - 1 do
    begin
      if AContainer.Components[I] is TButton then
        TButton(AContainer.Components[I]).OnClick := HandleButtonClick
      else if AContainer.Components[I] is TWinControl then
        AttachClickHandlers(TWinControl(AContainer.Components[I]));
    end;
  end;
  
  // 在FormCreate中调用：
  AttachClickHandlers(Self);
  

内容的提问来源于stack exchange，提问作者Harvey