如何在TShape组件上编写一个数字？

Question

我有一个TShape组件。我需要动态加载它并且我需要在该TShape上放置一个数字。如果有人知道的方式 - 请给我建议。

由于勒凯什

Answer 1

可以使用TShape组件的画布属性来绘制数，访问此受保护的财产，你必须创建派生类T形，并发布该属性或只使用一个interposer class。

type 
    TShape = class(ExtCtrls.TShape); //interposer class 

    TForm1 = class(TForm) 
    Shape1: TShape; 
    Button1: TButton; 
    procedure Button1Click(Sender: TObject); 
    private 
    public 
    end; 

var 
    Form1: TForm1; 

implementation 

{$R *.dfm} 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
    Shape1.Canvas.Font.Name :='Arial';// set the font 
    Shape1.Canvas.Font.Size :=20;//set the size of the font 
    Shape1.Canvas.Font.Color:=clBlue;//set the color of the text 
    Shape1.Canvas.TextOut(10,10,'1999'); 
end; 

Answer 2

将它上面的的TLabel并使其背景透明（透明=真）。如果编辑文本对齐需要（阵营：= taCenter）