如何从Delphi自定义组件内部捕获窗体WM_NCCalcSize

type
  TMyCustomControl = class(TWinControl)
  private
    procedure WMNCCalcSize(var Msg: TWMNCCalcSize); message WM_NCCALCSIZE;
  protected
    // 其他方法和属性
  public
    // 构造函数和其他公共方法
  end;

procedure TMyCustomControl.WMNCCalcSize(var Msg: TWMNCCalcSize);
begin
  // 在这里进行自定义处理
  // 可以修改Msg参数中的Rect来调整非客户区的大小

  // 调用父类的处理方法
  inherited;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  MyControl: TMyCustomControl;
begin
  MyControl := TMyCustomControl.Create(Self);
  MyControl.Parent := Self;
  // 设置其他属性和事件处理程序
end;