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???

[Khabarakh]

Zeichne im MouseMove auf ein TBitmap, das ist nicht "flüchtig". Dieses kopierst du im OnPaint auf die Formcanvas (TCanvas.Draw).

[smepal]

könntest du mir bitte ein beispiel code schreiben dann würde ich das auch raffen

[Luckie]

Grund, Erklärung und Beispiel:
http://www.michael-puff.de/Developer...tioniert.shtml