如何在panel上把已知的两点通过一条线连起来 也就是在两点间画一条线出来谢谢!! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 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; 估计Panel不能实现,因为没有Canvas属性,有一个变通的方法,在这个Panel上放一个Image,然后使用Image的Canvas属性:Image.Canvas.MoveTo(X1,Y1);Image.Canvas.LineTo(X2,Y2); 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; thread线程里面可以再创建thread吗? 线程里用消息同步VCL 关于treeview放复选框 关于delphi中的word控件的问题 按输入某范围时间显示相关表内容的问题!!!急!!! delphi8的序列号是什么啊? 大虾帮忙啊,我在一个过程中在调用另一个事件(自带参数)的时候,参数怎么设置?谢谢 为什么我使用GUID获取网卡地址,每次得到的结果都不一样? 请大家用简短的语言说一下自己对COM/COM+的认识与看法~~~ 再问sql大难题 大侠们, 怎么在DBGird里读出图形来呀! 如何在panel上把已知的两点通过一条线连起来
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;
Image.Canvas.MoveTo(X1,Y1);
Image.Canvas.LineTo(X2,Y2);
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;