Question

如何在delphi 窗体上画条直线就像vb中的line一样！

谢谢 各位了！~—~

Answer 1

直接用窗体的Canvas属性:

Canvas.MoveTo(x1, y1);
Canvas.LineTo(x2, y2);

你可以试一下, 在Form1上放一个Button (Button1), 把上面的代码放到Button1的OnClick事件中, 完全可以画出一条直线.

Answer 2

考虑到美观与功能，所以用到的用到的组件有colorbox,paintbox,panel.panitbox1放在panel上面。
线条的颜色可以随时改变。所以增加了其灵活性。
var
x,y:integer;
begin
x := 50;
y := Height div 2;
paintbox1.Canvas.Pen.Color := colorbox1.Selected;
paintbox1.Canvas.Brush.Color:=colorbox1.Selected;
paintbox1.Canvas.MoveTo(x,y);
paintbox1.Canvas.LineTo(x + 90, y);
end;
注意：moveto函数是确定起始点，lineto函数是终止点
其实灵活一占可以捕捉鼠标点，像画图一样画直线。
即在onmouseup和onmousedown中加入类似上面的代码就可以了。