如何在panel上把已知的两点通过一条线连起来

Question

也就是在两点间画一条线出来
谢谢!!

Answer 1

procedure TForm1.FormPaint(Sender: TObject);
var
  C: TControlCanvas;
begin
  C := TControlCanvas.Create;
  try
    C.Control := Panel1;
    C.Pen.Width := 1;
    C.Pen.Color := clBlue;
    C.PenPos := Point(5,25);
    C.LineTo(200,25);
    self.Repaint;
  finally
    C.Free;
  end;
end;

Answer 2

估计Panel不能实现，因为没有Canvas属性，有一个变通的方法，在这个Panel上放一个Image，然后使用Image的Canvas属性：
Image.Canvas.MoveTo(X1,Y1);
Image.Canvas.LineTo(X2,Y2);

Answer 3

procedure TForm1.FormPaint(Sender: TObject);
var
  C: TCanvas;
begin
  C := TCanvas.Create;
  try
    C.Handle := GetDC(Panel1.Handle);
    C.PenPos := Point(5,25);
    C.LineTo(200,25);
  finally
    C.Free;
  end;
end;