Paintbox zur Laufzeit erstellen: OnPaint Ereignis

[jfheins]

Probier mal das:

Delphi-Quellcode:

procedure TUhr.paint; 
begin 
  Canvas.MoveTo(0, 0);
  Canvas.LineTo(width,height); 
end;

Um die Linie mehr als einmal zu zeichnen