Delphi 自定义组件,拖动时无法在设计器中定位(顶部/左侧属性的自定义设置器)

Posted

技术标签:

【中文标题】Delphi 自定义组件,拖动时无法在设计器中定位(顶部/左侧属性的自定义设置器)【英文标题】:Delphi custom component, can't position in Designer when dragging (custom setter for Top/Left properties) 【发布时间】:2021-08-12 12:13:37 【问题描述】:

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

为了实现这一点,我计算了绘制程序中的LeftTop 值并相应地设置它们。一切都很好。

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

当我通过对象检查器设置LeftTop 属性时,它可以工作。

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;

我怀疑当组件在设计时拖放到窗体上时,它实际上并没有设置LeftTop 公共属性,而是调用了一些其他函数来设置私有字段成员我从 (TGraphicControl) 继承组件的底层控件。

【问题讨论】:

设置顶部属性将调用SetBounds。与左,宽度和高度相同。所以你可能应该只覆盖SetBounds 方法。 是的,覆盖SetBounds() 是对位置/大小变化做出反应的正确方法。此外,请勿在绘画操作期间重新定位/调整组件大小 【参考方案1】:

正如 fpiette 和 Remy 都指出的那样,覆盖 SetBounds 就可以了。在设计时通过拖放组件定位组件时,它不会单独设置公共LeftTop 属性。而是调用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 自定义组件,拖动时无法在设计器中定位(顶部/左侧属性的自定义设置器)的主要内容,如果未能解决你的问题,请参考以下文章

Delphi (CM_) 中的组件消息和自定义图形设计时组件

自定义组件和标签顺序

如何在自定义 delphi 组件中实现 stringlist 属性?

运行时分配操作的快捷方式不会在自定义组件中触发

如何使组件在表单设计器中消失?

Delphi自定义组件,项目中涉及tpropertyeditor时使用