Label färbt sich nicht trotz anderer eingestellte Farbe

[Popov]

Ich hab das in der Praxis zwar selbst noch nie genutzt, somit weiß ich nicht ob das in allen Einzelheiten funktioniert, aber TLabel besitzt auch eine Canvas, und auf der kann man schreiben was mal will:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.Canvas.Brush.Style := bsSolid;
  Label1.Canvas.Brush.Color := clWhite;
  Label1.Canvas.FillRect(Label1.Canvas.ClipRect);
  Label1.Canvas.Pen.Color := clRed;
  Label1.Canvas.TextOut(0, 0, 'Hallo');
end;

Ob das bei dir klappt oder gar mit Styles, weiß ich nicht, aber einfach mal im Hinterkopf behalten.