Delphi 10.4中TWinControl组件不响应窗体Resize问题求助

你的自定义控件不响应窗体调整的核心原因是：没必要自己重新实现Anchors、Align、AutoSize这些属性。TWinControl本身已经内置了这些属性的完整处理逻辑，包括锚定、对齐时的消息响应和布局调整。你现在的代码只是自己维护了字段值，完全没有触发VCL框架的布局处理机制，所以窗体拉伸时控件不会跟着动。

具体修改步骤 #

1. 重构TSampleControl代码 #

删除自定义的字段、Set方法，直接继承并发布父类的属性：

unit SampleControl;

interface

uses
  System.Classes, Vcl.Controls;

Type
  TSampleControl = class(TWinControl)
  Public
    constructor Create(AOwner: TComponent); override;
  Published
    // 直接发布父类的属性，可修改默认值
    property Anchors default [akLeft, akTop];
    property Align default alNone;
    property AutoSize default True;
  end;

Procedure Register;

implementation

constructor TSampleControl.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  Width := 425;
  Height := 170;
  // 不要在构造函数里直接设置Parent，由宿主容器（如Form）负责
  // Parent := AOwner AS TWinControl;
  // 初始化默认属性
  Anchors := [akLeft, akTop];
  Align := alNone;
  AutoSize := True;
end;

procedure Register;
begin
  RegisterComponents('EBSH', [TSampleControl]);
end;

end.

2. 修改Form代码 #

移除手动调用Resize的冗余代码：

unit ComponentTest;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, SampleControl;

type
  TfrmCompTest = class(TForm)
    Button1: TButton;
    SampleControl1: TSampleControl;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmCompTest: TfrmCompTest;

implementation

{$R *.dfm}

end.

为什么这样改能解决问题 #

TWinControl的Anchors、Align等属性内部会处理WM_SIZE、WM_PARENTNOTIFY等系统消息，自动计算并调整控件的位置和大小。你之前的代码相当于覆盖了这些属性，但没有实现对应的消息处理逻辑，等于切断了控件和VCL布局系统的联系。直接继承父类属性后，框架会自动处理所有布局相关的行为，和TButton的表现一致。

关于之前TFrame的问题 #

如果之前用TFrame出现部分显示或不显示的情况，大概率是Frame的Parent设置时机不对，或者Align/Anchors属性没有正确配置，也可能是Frame内部控件的布局冲突。可以尝试：

• 不要在Frame构造函数里设置Parent，由宿主控件赋值
• 确保Frame的Align属性设置为alClient（如果需要填充父容器），或者配置正确的Anchors
• 检查Frame内部控件的布局属性，避免相互覆盖

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