菜鳥求助，如何實現dELPHI中的label邊框顯示以及顏色，在線等

[烈火焚身]

如何實現dELPHI中的label邊框顯示以及顏色

[bdmh]

  Label1.Canvas.Pen.Width := 5;
  Label1.Canvas.Rectangle(Label1.ClientRect);

[天涯倦客]

var
canvas :TCanvas;
hd :THandle;
begin
canvas := Tcanvas.Create;
hd := getdc(pnl1.Handle);
canvas.Handle := hd;
canvas.Pen.Style := psDot;
canvas.Pen.Color := clred;
canvas.MoveTo(0, 0);
canvas.LineTo(100, 100);
end
画线 其他参照 搞就行了

[天涯倦客]

看错 Tlabel 有Canvas 可以直接用。。
TPanel 没有的 可以用我的方法。
或者增加 属性

[kaikai_kk]

加上顏色 Label1.Canvas.Pen.Color := clRed;