如何以线宽为2，线的颜色为红色，在Tpanel控件上以点(50,50)到点(80,80)画一条直线，

Question

不知道怎样直接在上面画
不过你可以利用timage来实现
image1.parent:=panel1;
image1.align:=clclient;image1.canvas.pen.style:=pssolid;
image1.canvas.pen.color:=clred;
image1.canvas.pen.width:=2;
image1.canvas.moveto(50,50);
image1.canvas.lineto(80,80);我已经调试过了
你可以试一试

Answer 1

var
  aCanvas:TControlCanvas;
0Abegin
  aCanvas := TControlCanvas.Create;
  aCanvas.Control := Panel1;
  //aCanvas.Control := Shape1;//如果是在Shape上画的话.
  aCanvas.Pen.Color := clRed;
  aCanvas.Pen.Width :=2;
  aCanvas.MoveTo(50,50);
  aCanvas.LineTo(80,80);
  aCanvas.Free;
end;