怎样在程序中划直线

Question

Shape控件的Shape属性中没有直线，而且单位是像素，我想以毫米为单位

Answer 1

procedure TForm1.Button2Click(Sender: TObject);//在shape上画线
var c:TCanvas;begin c:=TControlCanvas.Create; TControlCanvas(c).Control:=Shape1; //c.Brush.Style:=bsClear;// c.Pen.Color:=clBlue;// c.Rectangle(5,5,15,15);
 c.MoveTo(1,10);
 c.LineTo(100,10); c.Free;end;
procedure TForm1.BitBtn1Click(Sender: TObject);//在窗体上画线
begin
  with Self.Canvas do
  begin
    Pen.Color := clRed;
    MoveTo(1,10);
    LineTo(100,10);
  end;
end;如果只是想在程序界面上显示一条线，可以用Bevel控件，设置Bevel1.Shape := bsBottomLine;上面得例子都是以象素为单位的，至于毫米的，还不清楚。

Answer 2

wudi_1982(城里人真傻！) 写的很清楚了  Self就是窗体