S SmallGhost Unregistered / Unconfirmed GUEST, unregistred user! 2008-06-11 #1 两点画了一条线，现在想知道鼠标坐标是不是线条上，怎么判断呀？
P Passion Unregistered / Unconfirmed GUEST, unregistred user! 2008-06-11 #2 平面几何的问题。根据两点算斜率，用点斜式得出直线方程，然后把鼠标座标代入看看方程成立不。
W wr960204 Unregistered / Unconfirmed GUEST, unregistred user! 2008-06-11 #3 //判断X,Y是否在直线(X1,Y1),(X2,Y2)上 Function OnLine(X,Y : Integer; X1,Y1,X2,Y2 : Integer):Boolean; begin Result := (X1-X)*(Y2-Y) = (X2-X)*(Y1-Y); end;
//判断X,Y是否在直线(X1,Y1),(X2,Y2)上 Function OnLine(X,Y : Integer; X1,Y1,X2,Y2 : Integer):Boolean; begin Result := (X1-X)*(Y2-Y) = (X2-X)*(Y1-Y); end;
