德尔菲:怎么知道泰迪熊什么时候会变大?

OnResize声明为Tcontrol的受保护属性。您可以使用所谓的“cracker”类公开它。不过,这有点像黑客。

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;

您是否尝试过类似的操作:

unit _MM_Copy_Buffer_;

interface

type
  TMyEdit = class(TCustomEdit)
  protected
    procedure Resize; override;
  end;

implementation

procedure TMyEdit.Resize;
begin
  inherited;
  if not (csLoading in ComponentState) then
  begin
    // react on new size
  end;
end;

end.

或者:

unit _MM_Copy_Buffer_;

interface

type
  TCustomComboEdit = class(TCustomMaskEdit)
  private
    procedure WMSize(var Message: TWMSize); message WM_SIZE;
  end;

implementation

procedure TCustomComboEdit.WMSize(var Message: TWMSize);
begin
  inherited;
  if not (csLoading in ComponentState) then
  begin
    // react on new size
  end;
  UpdateBtnBounds;
end;

end.

处理 wm_Size 消息。通过将新值赋给控件的子类 WindowProc 属性;请确保存储旧值,以便可以在那里委托其他消息。

另请参见: wm_WindowPosChanged