Belistift / Pinsel

[ReDoX]

Hi also ich würde das so machen

Delphi-Quellcode:

private
  Down: Boolean; // Status der Maus



procedure TForm1.FormCreate(Sender: TObject);
begin
  Down := false;
end;



procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
    down := true;
    Form1.Canvas.MoveTo(x, y);
end;


procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Down := false;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  if down = true then
  begin
    Form1.Canvas.LineTo(x, y);
  end;
end;

Wenn die Maustaste gedrückt ist kannst du zeichnen sonst nicht.
Mfg MrScholz