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