TMyLabel - Refresh-Problem

[bitsetter]

Versuche es mal damit:

Delphi-Quellcode:

   // Zur Laufzeit einen Rahmen + Text in der Mitte anzeigen
   With Canvas do Begin
    Canvas.Brush.Style := bsClear;
    Canvas.Rectangle(0,0,width,height);//geändert
    //Rectangle(Canvas.ClipRect);
    TextOut((width - Canvas.TextWidth(FText)) div 2,(height - Canvas.TextHeight(FText)) div 2,FText);
  End;

EDIT:

Delphi-Quellcode:

procedure TMyLabel.SetFText(Value: string);
begin
  FText := Value;
  Invalidate;
  self.Width:= Canvas.TextWidth(FText);//breite automatisch setzen
  self.Height:= canvas.TextHeight(FText);//höhe automatisch setzen
end;