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


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



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

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

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