关于鼠标画平行线和垂直线的问题

Question

我现在能画出直线，但是是任意画的我想弄成画出来要么是水平线要么是垂直线!请赐教代码！希望大家指点1

Answer 1

move(a,b)    lineto(c,d)    要画水平的只要保证b=d
                            要画垂直的只要保证a=c

Answer 2

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  with Canvas do
  begin
    MoveTo(10,10);        // 水平
    LineTo(1000,10);    MoveTo(10,10);
    LineTo(10,1000);       //垂直
  end;
end;