MouseMove zeichnet auf Canvas Punkte

[Sunlight7]

Hallo Skycl4w!

Der Ansatz war schon der Richtige, nur die Ausführung nicht ganz.
So klappt es.

Delphi-Quellcode:

procedure TMain.imCanvasMouseDown(Sender:TObject; Button:TMouseButton; Shift:TShiftState; X, Y:Integer);
begin
  Zeichne:=True;
  imCanvas.canvas.moveto(x, y);
end;

procedure TMain.imCanvasMouseMove(Sender:TObject; Shift:TShiftState; X, Y:Integer);
begin
  if Zeichne then
     imCanvas.canvas.lineto(x, y);
end

procedure TMain.imCanvasMouseUp(Sender:TObject; Button:TMouseButton; Shift:TShiftState; X, Y:Integer);
begin
  Zeichne:=False;
end;