Label färbt sich nicht trotz anderer eingestellte Farbe

[Popov]

Wobei, ich sehe ich hab oben einen kleinen Fehler gemacht. Die Farbe kommt von Font.Color, nicht von Pen. Auch muss man nicht alles aus meinem ersten Beispiel nutzen, zwei Zeilen reichen:

Delphi-Quellcode:

procedure TForm1.FormPaint(Sender: TObject);
begin
  Label1.Canvas.Font.Color := clRed;
  Label1.Canvas.TextOut(0, 0, Label1.Caption);
end;

Und den Text aus Caption nehmen und wie Bernd G. sagte, in Paint setzten.