при каждом нечетном OnClick запоминаем позицию курсора в глобальной (классовой) переменной. при каждом четном OnClick рисуем линию:
Canvas.MoveTo(<из глобальной переменной>) - Canvas.LineTo(<текушая позиция>). цвет линии задаем Canvas.Pen.Color:=clRed. длину высчитываем по теореме Пифагора - квадрат гипотенузы равен сумме квадратов катетов. - катеты это разница X2-X1 и Y2-Y1 координат точек курсора.
|