Problem: Canvas zeichnet nicht!

[Martin K]

Ja, super!!!

Danke, das hat geklappt:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  Label1.Font.Color := clRed; 
  Label1.Update; //  <--- hier eingefügt
  Label1.Canvas.Pen.Color := clGreen; 
  Label1.Canvas.MoveTo(0, 0); 
  Label1.Canvas.LineTo(20, 10); 
end;

Verstanden habe ich es aber trotzdem nicht...