求一个点坐标是否在线段的轨迹上怎样实现

[初冬雪]

利用以下代码实现的线段绘制（线段坐标从数据库中提取），提取线段后显示也没问题，可是如何做到我的鼠标光标放置到某线段上，就可以判断处鼠标光标的坐标在该线段的轨迹上？或者说可以捕获该线段的鼠标UP事件。
while not ds1.DataSet.Eof do
begin
with Canvas do begin
Pen.Width:=ds1.DataSet.FieldByName('wide').asinteger;
Pen.Color := ds1.DataSet.FieldByName('color').asinteger;
MoveTo(ds1.DataSet.FieldByName('startX').asinteger,ds1.DataSet.FieldByName('startY').asinteger);
LineTo(ds1.DataSet.FieldByName('endX').asinteger,ds1.DataSet.FieldByName('endY').asinteger);
end;
ds1.DataSet.Next ;
end;

[asd杂草]

http://blog.csdn.net/kome2000/article/details/4383086, 家里没Delphi ,不知能否满足楼主

[lhy]

计算鼠标到线段的距离，小于阈值就在线段上。