重新声明自定义 Delphi 组件的 Width 属性

Question

我有一个来自 TGraphicControl 的自定义 Delphi 组件。它的类声明如下：

TMyLabel = class(TGraphicControl)
private
  ...
protected
  ...
public
  ...
published
  property Height;
  property Width write SetWidth;
  ...
end;

SetWidth 的实现更进一步：

procedure TMyLabel.SetWidth(const Value: Integer);
begin
  if (Value >= 0) and (Value <> Width)
  then begin
    inherited Width := Value;
    // Do some other stuff
    ...
  end;
  MessageDlg('Test', mtInformation, [mbOK], 0);
end;

当前，当组件的宽度在运行时或设计时通过在对象检查器的相应字段中输入值以编程方式更改时，我会调用 SetWidth。但是，当我在设计时使用鼠标调整组件大小时，对象检查器的“宽度”字段会更新，但没有显示消息框，因此不会调用我的 SetWidth 过程。

我需要在鼠标调整组件大小时调用 SetWidth，以便我可以为 Paint 过程设置一个标志，以了解它何时必须执行其他操作（除了重绘组件之外）。有没有办法做到这一点？

Answer 1

虽然Mason Wheeler's answer 是您问题的答案，但我想警告您。

覆盖属性可能会产生奇怪的结果，因为您不能拥有“虚拟”属性并且 SetWidth 也不是虚拟的。如果有人使用您的类的后代来设置 Width 属性，则不会调用您的代码。因此，我建议不要以这种方式覆盖属性。

var Control: TControl;
begin
 Control := MyLabel;
 Control.Width := 5000; // TMyLabel.SetWidth is not called!!

此外：设置 Width 属性并不是将控件宽度更改为Deltics explains 的唯一方法。你应该重写 TControl.SetBounds。

var MyLabel: TMyLabel;
begin
 MyLabel.SetBounds(0, 0, 100, 100); // TMyLabel.SetWidth nor TControl.SetWidth is called!!

但您似乎想限制控件的宽度。那么你最好覆盖为该目的而制作的 TControl.CanResize 。或者，如果您只想对任何类型的调整大小做出反应，最好覆盖 TControl.Resize。

Answer 2

我现在无法检查，但 iirc 我怀疑设计器使用 SetBounds() 调整控件的大小，而不是设置单独的左侧、顶部、宽度和高度属性。

幸运的是，SetBounds() 是虚拟的，因此您可以在自定义控件类中简单地覆盖它。

Answer 3

当您重新声明 Width 时，您需要为其指定 read 和 write，否则您将无法在 Object Inspector 中对其进行修改。如果你不打算改变阅读的方式，那就给它一个虚拟函数：

procedure TMyLabel.GetWidth: Integer;
begin
  result := inherited Width;
end;