Firemonkey TControl子类无法在组件上绘制

我想尝试创建一个firemonkey可视化组件,我在网上看到 TControl 提供基本需求。这就是我目前所做的:

  TMyTest = class(TControl)
  strict private
    //code...
  protected
    procedure Paint; override;
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
    //code...
  end;

PlotGrid 我已经复制了它的功能。我的类从TControl(如PlotGrid)派生,并重写Paint(如PlotGrid)。看看代码:

constructor TMyTest.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  SetAcceptsControls(False);
end;

destructor TMyTest.Destroy;
begin
  inherited;
end;

procedure TMyTest.Paint;
var
  i: integer;
  a, b: TPointF;
begin
  Canvas.Fill.Color := TAlphaColorRec.White;
  Canvas.Stroke.Color := TAlphaColorRec.Black;
  Canvas.Stroke.Thickness := 2;

  a.X := 0; a.Y := Height/2;
  b.X := Width;  b.Y := Height/2;
  Canvas.DrawLine(a, b, 1);
end;

给定这段代码,我希望有类似的东西(我已经用画图进行了编辑,它不是真实的)

问题是我明白了

组件很好,因为我看到了所有的方法和属性,它们都可以工作。组件是功能性的,但我在设计器中看不到它!如果我运行FMX应用程序,我看不到颜色:

知道吗?

我已经设置了 Opacity := 1; 在 Paint 事件,但仍然没有。