Delphi 11.3中如何强制TRichEdit控件触发onRequestResize事件？

方案一：直接调用事件或用Perform强制触发 #

如果只是需要强制触发已绑定的OnResizeRequest事件，有两种可行方式：

1. 直接调用事件处理方法
   只要你已经给RE.OnResizeRequest赋值了处理函数，就可以跳过控件内部逻辑，直接手动调用：

var
  NewWidth, NewHeight: Integer;
begin
  NewWidth := RE.Width; // 可根据需求设置目标宽高
  NewHeight := RE.Height;
  RE.OnResizeRequest(RE, NewWidth, NewHeight);
end;

2. 用Perform发送CN_RESIZEREQUEST消息
   OnResizeRequest对应Delphi自定义消息CN_RESIZEREQUEST（值为WM_USER + 11），可以通过Perform发送该消息触发事件：

var
  Msg: TWMResizeRequest;
begin
  Msg.Msg := CN_RESIZEREQUEST;
  Msg.Width := RE.Width; // 设置期望宽度
  Msg.Height := RE.Height; // 设置期望高度
  RE.Perform(Msg.Msg, 0, Longint(@Msg));
end;

注：确保代码单元引入了Controls单元（通常默认已引入），CN_RESIZEREQUEST和TWMResizeRequest定义在此单元中。

方案二：重构为独立可调用函数（更优） #

依赖控件事件触发的方式本身存在不确定性（比如控件内部逻辑可能跳过消息发送），更可靠的做法是把事件中的业务逻辑抽离成独立函数：

1. 提取独立逻辑函数

procedure AdjustRichEditSize(ARichEdit: TRichEdit; var AWidth, AHeight: Integer);
begin
  // 这里放置原来OnResizeRequest事件中的所有业务逻辑
  // 例如：根据内容调整控件尺寸、同步关联控件大小等
end;

2. 在事件中调用该函数

procedure TYourForm.REResizeRequest(Sender: TObject; var Width, Height: Integer);
begin
  AdjustRichEditSize(TRichEdit(Sender), Width, Height);
end;

3. 在LoadFromStream后手动调用

var
  TargetWidth, TargetHeight: Integer;
begin
  RE.Lines.LoadFromStream(st);
  TargetWidth := RE.Width; // 根据实际需求设置目标值
  TargetHeight := RE.Height;
  AdjustRichEditSize(RE, TargetWidth, TargetHeight);
end;

这种方式完全摆脱了对控件事件触发机制的依赖，逻辑更可控，也更易于维护和调试。

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