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


         

Пример обработки



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

Shift: TShiftState; X, Y: Integer);

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

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