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



Листинг 13 28 Пример обработки



Листинг 13.28.Пример обработки события OnMouseMove procedure TForm1.FormMouseMove(Sender: ТОbject;Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);
begin
Canvas.LineTo(X, Y); { рисует линию в текущую позицию } end;

Содержание Назад Вперед