delphi中可以画直线吗？

Question

如题

Answer 1

with canvas do
begin
  pen.color := clblack;
  moveto(10, 10);
  LineTo(100, 10);
end;

Answer 2

with canvas do
begin
  pen.color := clblack;
  moveto(10, 10);
  LineTo(100, 10);
end;若是在窗口上画，可用Qreport上的画线控件。

Answer 3

若是在窗口上画，可用Qreport上的画线控件QRshape。

Answer 4

有两种方法：
一、对于有Canvas属性的控件可以下面方法：
    控件.Canvas.MoveTo(X1, Y1);
    控件.Canvas.LineTo(X2, Y2);
二、对于没有Canvas属性，但是实继承自TWinControl的控件可以下面方法：
    var DC: HDC;
    ...
    DC:= GetDC(控件.Handle);
    MoveToEx( DC, X1, Y1, nil );
    LineTo( DC, X2, Y1);
    ReleaseDC(DC);
    ...