windows – Delphi：如何知道TEdit何时改变大小？

我需要在更改大小时更新编辑框周围的项目.

TEdit没有OnResize事件.

编辑框可以在不同时间调整大小,例如：

>在代码中更改宽度/高度
>为DPI缩放缩放的表单
>字体已更改

我相信其他人我不知道.

我需要一个单独的事件来知道编辑框何时改变了它的大小.是否有Windows消息我可以为编辑框子类化并抓取？

解决方法

type
  TControlCracker = class(TControl);

…

procedure TForm1.FormCreate(Sender: TObject);
begin
  TControlCracker(Edit1).OnResize := MyEditResize;
end;

procedure TForm1.MyEditResize(Sender: TObject);
begin
  Memo1.Lines.Add(IntToStr(Edit1.Width));
end;

（编辑：ASP站长网）