如何将Tshape画出的线在Tbutton上面！

Question

如何将Tshape画出的线在Tbutton上面！
目的：画(一线...)穿过多个(Button或panel...)

Answer 1

随便放一些按钮在窗体上，然后procedure TForm1.FormPaint(Sender: TObject);
begin
  Canvas.LineTo(Width,Height);
end;

Answer 2

var
  aCanvas: TCanvas;
begin
  aCanvas := TCanvas.Create;
  aCanvas.Handle := GetDC(Button1.Handle);
  aCanvas.MoveTo(0, 0);
  aCanvas.LineTo(Button1.Width, Button1.Height);
  aCanvas.Free;

Answer 3

fim(镇江DJ)(DJ=DelphiJava) ( ) 信誉：100 
完全错误！ xzhifei(星级饭桶(抵制日货)·飞) ( ) 
多个！！！！
我要封装成类！！这么简单我就不问了！！

Answer 4

<<fim(镇江DJ)(DJ=DelphiJava) ( ) 信誉：100 
<<完全错误！呵呵，其实核心代码就是这句话，楼主好像对GDI函数不是很了解啊

Answer 5

我想让Tshape不被Tbutton挡住！to xzhifei(星级饭桶(抵制日货)·飞) 
你的可以在一个button上，但对于多个，会增加很多代码的算法来转换，相当于我重写Tshape

Answer 6

to： xzhifei(星级饭桶(抵制日货)·飞) 
对您的态度不好，抱歉！我现在心情不好。

Answer 7

楼上2位的解答都是有道理的，但在这种情况下，楼主的较好选择是放弃TShape!干脆点，自己画，我想画个3角形，圆形，矩形对于楼主来说不是问题吧？