Dann erkläre mal exakt, wo es klemmt.
Erm. nein. Es funktioniert nichts weil bisher nicht mehr als das hier existiert
Delphi-Quellcode:
Button2Click(Sender: TObject);
var
val: Integer;
begin
val := 75; // Random(PaintBox1.Height);
PaintBox1.Canvas.FillRect(ClientRect);
PaintBox1.Canvas.MoveTo(0, PaintBox1.Height - val);
PaintBox1.Canvas.LineTo(0, val);
end;
Selbst dafür bin ich zu doof.