Delphi 自定义组件，拖动时无法在设计器中定位（自定义 setter 用于 Top/Left 属性）

Question

我写了一个组件，可以绘制以 X,Y 为中心的图片。在运行时，组件通过 SetXY(X,Y: integer) 过程移动。

为了实现这一点，我计算了 Left 和 Top 值应该在绘画例程中并相应地设置它们。所有这些都很好。

但是当我尝试在设计时进行初始定位时，我无法通过将组件拖动到所需位置来定位组件。

当我通过对象检查器设置 Left 或 Top 属性时，它起作用了。

procedure MyCustomComponent.SetTop(const Value: integer);
begin
  if Top = (Value) then
    exit;
    
  inherited Top := Value;
  if csDesigning in ComponentState then
    FY := Value + FBmp.Width div 2;
  Invalidate;
end;
    
procedure MyCustomComponent.SetLeft(const Value: integer);
begin
  if Left = (Value) then
    exit;
    
  inherited Left := Value;
  if csDesigning in ComponentState then
    FX := Value + FBmp.Width div 2;
  Invalidate;
end;

我怀疑在设计时将组件拖放到窗体上时，它实际上并没有设置 Left 和 Top public 属性，而是调用其他一些函数设置我从 (TGraphicControl).

继承组件的底层控件的私有字段成员

Answer 1

正如 fpiette 和 Remy 指出的那样，重写 SetBounds 就可以了。在设计时通过拖放组件定位组件时，它不会单独设置 public Left 和 Top 属性。而是调用 SetBounds 过程。

procedure MyComponent.SetBounds(ALeft, ATop, AWidth, AHeight: Integer);
begin
  inherited;
  if csDesigning in ComponentState then begin
    FX := ALeft + FBmp.Width div 2;
    FY := ATop + FBmp.Height div 2;
  end;
end;

编辑：

测试后我发现要在运行时将组件正确放置在表单上，您还必须检查组件状态中的 csLoading。

所以更完整的解决方案是这样的：

procedure MyComponent.SetBounds(ALeft, ATop, AWidth, AHeight: Integer);
begin
  inherited;
  if (csDesigning in ComponentState) or (csLoading in ComponentState ) then begin
    FX := ALeft + FBmp.Width div 2;
    FY := ATop + FBmp.Height div 2;
  end;
end;

Delphi 自定义组件，拖动时无法在设计器中定位（自定义 setter 用于 Top/Left 属性）

Delphi custom component, can't position in Designer when dragging (custom setter for Top/Left properties)

delphi

vcl

编辑：