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

[Ветас]

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

[mihali4]

Нужно проверять условие
if Button=mbLeft then
разрешить рисовать else
не разрешать рисовать.
Да, событие, естественно - OnMouseDown.

[kommunist]

         
procedure MouseDown(x,y,mb: integer);
begin
  MoveTo(x,y);
end;
procedure MouseMove(x,y,mb: integer);
begin
  if mb=1 then LineTo(x,y);
end;
begin
  OnMouseDown:=MouseDown;
  OnMouseMove:=MouseMove
end.

[Ветас]

В какой процедуре надо написать следующий код:

OnMouseDown:=MouseDown;
  OnMouseMove:=MouseMove