继承的 TShape.Paint 在重写 Shape 属性后不起作用

Question

我要编写一个继承自 TShape 的 TExpandedShape 类。 TExpandedShape 必须像 TShape 一样工作，并且能够绘制额外的形状：多边形和星形。 这是我的代码

unit ExpandedShape;
interface

uses
  SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, Forms, Dialogs,          ExtCtrls, Windows;

type
  TExpandedShapeType = (
            stRectangle, stSquare, stRoundRect, stRoundSquare, stEllipse, stCircle,
            stPolygon,
            stStar
           );
 TExpandedShape = class(TShape)
 private
       FShape: TExpandedShapeType;
       FEdgeCount: integer;
       procedure SetShape(const Value: TExpandedShapeType);
       procedure SetEdgeCount(const Value: integer);
 public
       procedure Paint; override;
 published
       property Shape : TExpandedShapeType read FShape write SetShape;// default   stPolygon;
       property EdgeCount : integer read FEdgeCount write SetEdgeCount default 5;

 end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Course', [TExpandedShape]);
end;

// TExpandedShape 

procedure TExpandedShape.Paint;
begin
  case Shape of
    stStar :    begin {Draw Star}
                end;
    stPolygon : begin {Draw Polygon}                 
                end;
    else  begin 

{它应该绘制圆形，矩形等，但它没有}

          inherited; 
          end;
   end;
  end;

procedure TExpandedShape.SetEdgeCount(const Value: integer);
begin
  FEdgeCount := Value;
  Repaint;
end;

procedure TExpandedShape.SetShape(const Value: TExpandedShapeType);
begin
  FShape := Value;
  Repaint;
end;
end.

那么，出了什么问题？
IMO TShape.Paint 检查案例部分中的私有值（如 FShape），然后决定绘制什么。当在我的代码中调用继承的 Paint 方法时，它会检查 FShape 值，在其中看到默认 0 值 [stRectangle] 并绘制它。

PS：我确实使用 Shape1 属性而不是形状一以 blackmagic 方式解决了这个问题，如果 Shape1 值不是 stPolygon 或 stStar 我会这样做： begin Shape := TShapeType(Shape1);继承结束；但这个选项并不是真正的选项。我需要一件漂亮的短款。

Answer 1

在继承的...之前添加此继承行

  inherited Shape := TShapeType(Shape);  // ** add this line **  
  inherited;   

Answer 2

在我的网站中，您可以找到一篇有关 Delphi 插件的文章。
本文的示例代码实现了 TShape 的后代类。所有代码都包含在内。您可以下载并查看课程代码。

另一个后代类实现了星星、箭头等图形

在这里您可以看到 TShape 的一些后代图形实施的。

---

Neftalí

P.D：请原谅我的英语错误。