auf onpaint zeichnen

**smepal**

ich weiß das thema is alt aber ich kriegs nit gebacken also:
ausblenden anzeigen Delphi-Quelltext

Delphi-Quellcode:

			procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;

  Shift: TShiftState; X, Y: Integer);

begin

down := true;

end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,

  Y: Integer);

begin

if down then

canvas.lineto (x,y);

end;

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;

  Shift: TShiftState; X, Y: Integer);

begin

down := false;

end;

so damit kann ich ja einfach auf das formular zeichnen. Allerdings verschwindet das ja beim maximieren usw

habe überall gelesen ich sollte doch auf die onpaint der Paintbox zeichnen. Aber wie soll ich das jetzt so anstellen???

auf onpaint zeichnen

auf onpaint zeichnen

Forumregeln