Иллюстрированный самоучитель по Kylix


Листинг 13 14 Обработчики нажатия кнопок



Листинг 13.14. Обработчики нажатия кнопок

procedure TForm1.LineButtonClick{Sender: TObject); { Кнопка линии } begin
DrawingTool := dtLine; end;
procedure TForm1.RectangleButtonClick(Sender: TObject); { Кнопка
прямоугольника } begin
DrawingTool := dtRectangle; end; procedure TForm1.EllipseButtonClick (Sender: TObject); { Кнопка эллипса } begin
DrawingTool := dtEllipse; end;
procedure TForm1.RoundedRectButtonClick(Sender: TObject}; { Кнопка
прямоугольника со скругленными углами } begin
DrawingTool := dtKoundRect; end;

Теперь нам осталось написать лишь обработчики событий движения мыши (OnMouseMove) и отпускания левой кнопки мыши (OnMouseUр). Эти обработчики представлены в листингах 13.15 и 13.16.



Начало Назад Вперед