Also bei mir passiert da ja irgendwie gar nichts, was wohl an dem MoveTo liegt.
Damit bewegst du ja den Stift an ne Stelle und malst von dieser Stelle zu dieser Stelle = du malst nichts.
ich würde es persönlich so machen:
Delphi-Quellcode:
//Down = globale Boolean Variable
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if down then
Canvas.LineTo(x,y);
end;
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
down := true;
Canvas.MoveTo(X,Y);
end;
procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
down := false;
end;