Установка позиции пера в координатах указаннных пользователем
Листинг 13.26. Установка позиции пера в координатах, указаннных пользователем
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Canvas.MoveTo (X, Y);
{ установка позиции пера } end;
Обработка событии OnMouseUp
Событие OnMouseUp происходит всякий раз, когда пользователь отпускает на-жатую кнопку мыши. Комбинация данного события с событием OnMouseDown позволит вам, например, рисовать линии. Когда пользователь нажал кнопку мыши, установить начальную точку линии, а когда отпустил — конечную.
Для обработки события OnMouseUp нужно, как и для обработки OnMouseDown, создать программу-обработчик.
Приведем пример (листинг 13.27), который рисует линию из точки, в которой произошло нажатие кнопки мыши, в точку, в которой пользователь отпустил кнопку мыши (Рисунок 13.8).
