Рисование на Canvas при нажатии левой кнопки мыши. Опции

[Виталий]

Подскажите,пожалуйста, какое событие надо обрабатывать и каким образом для того, чтобы рисование на Canvas происходило только при нажатии левой кнопки мыши(если можете то приведите код).

[мисс_граффити]

в поиск...
вот, например: Графический редактор

[Better Kind]

в поиск...
вот, например:

Автор хотел узнать про нажатие левой кнопки.
Вот код:
]

Код

var
  Form1: TForm1;
  down:boolean=false; //проверка нажатия
implementation

{$R *.dfm}

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
{если нажата левая кнопка, то
переводим указатель в позицию курсора
и меняем значение переменной DOWN}
  if button=MBLeft then
  begin
    canvas.MoveTo(X,Y);
    down:=true;
    end;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
{если левая кнопка нажата}
  if down then canvas.LineTo(X,Y);
end;

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  down:=false; {отжали кнопку}
end;