Komponente von TShape mit Caption

[entwickler]

Wie lasse ich den Text denn in der Paint-Methode zeichnen? Und außerdem: Wie kann ich diesem Text einen eigenen Font zuweisen?

[DeddyH]

Aus dem Kopf und ohne Gewähr:

Delphi-Quellcode:

procedure TDeinShape.Paint;
var
  R: TRect;
begin
  inherited;
  Canvas.Font.Assign(Font);
  Canvas.Brush.Style := bsClear;
  R := Rect(0, 0, Width, Height);
  DrawText(Canvas.Handle, PChar(Text), -1, R, DT_SINGLELINE or DT_CENTER or DT_VCENTER);
end;

[entwickler]

Ich habe bisher folgendes geschrieben:

Delphi-Quellcode:

type
  TSudokuKasten = class(TShape)
  private
    { Private-Deklarationen }
  protected
    { Protected-Deklarationen }
  public
    constructor Create (AOwner : TComponent); override;
    destructor Destroy; override;
    { Public-Deklarationen }
  published
    property Caption   : string        read Text      write SetText;
    //property Font      : TFont         read      write SetFont;
    { Published-Deklarationen }
  end;

Doch bei der property Caption : string weis ich nicht, was ich bei write schreiben soll, weil Delphi 'write Text' nicht akzeptiert. Was tun?

[DeddyH]

Delphi-Quellcode:

type
  TSudokuKasten = class(TShape)
  private
    { Private-Deklarationen }
  protected
    { Protected-Deklarationen }
    procedure Paint; override;
  public
    constructor Create (AOwner : TComponent); override;
    destructor Destroy; override;
    { Public-Deklarationen }
  published
    { Published-Deklarationen }
    property Caption;
    property Font;
  end;

Das müsste genügen.

[Furtbichler]

Ein Panel mit Ctrl3D=False und Bevel* = bvNone reicht nicht?