Delphi zeichnet nicht :(

[Tyrael Y.]

Ich habe auf den ersten Blick keinen Fehler gesehen und hab es in eine Testanwendung kopiert.

- eine PaintBox auf das Formular
- ein Button auf das Formular
- die Eigenschaft Align der PaintBox auf alClient gesetzt

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Parabel(10);
end;

procedure TForm1.linie (x1,y1,x2,y2 : Integer);
begin
     PaintBox1.Canvas.MoveTo(x1,y1);
     PaintBox1.Canvas.LineTo(x2,y2);
end;

...

...funktioniert