重新声明自定义 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

虽然梅森惠勒的答案是你的问题，我想警告你。

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

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

此外：设置 Width 属性并不是更改控件宽度的唯一方法 Deltics 解释。您应该重写 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

当您重新声明宽度时，您需要为其指定读取和写入，否则您将无法在对象检查器中修改它。如果您不打算改变阅读的方式，那么只需给它一个虚拟函数：

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