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?