Paint nachprogrammieren

[Mavarik]

Delphi-Quellcode:

procedure TForm1.ZeichenflaecheMouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
var pt: TPoint;
begin
  if draw then
  begin
    pt := Mouse.CursorPos;  // Was ist mit pt?
    Zeichenflaeche.Canvas.lineTo(x,y);  // Ach jetzt doch X & Y
  end;
end;

Wo hast Du das den her kopiert?

Schreib doch einfach noch die MouseUp Routine und setze draw auf false.

Vielleicht liest Du mal das ein oder andere tutorial?