怎么在FORM里面画一条横线,好像IE上面的那几条一样

解决方案 »

  1.   

    用TBevel,高度为1,长度任意定!
      

  2.   

    procedure TForm1.Button1Click(Sender: TObject);
    begin
      with Canvas do
      begin
        Pen.Color := clBlack;
        MoveTo(10, 10);
        LineTo(ClientWidth-10, 10);
      end;end;
      

  3.   

    如果单纯实现画线,也可以用画布来实现
    form1.Canvas.MoveTo(10,10);   //确定起点  (10,10)
    form1.Canvas.LineTo(210,10);  //从起点开始画线到终点(210,10)
      

  4.   

    不用画的,只是在coolbar上放置toolbar就可以的。
      

  5.   

    同意楼上的
    估计楼主没有搞清那是什么东西~~~放上toolbar 就有线了:)