Установка позиции пера в координатах указаннных пользователем



Листинг 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).



Содержание раздела