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

Question

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

Answer 1

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

Answer 2

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
画线 其他参照 搞就行了

Answer 3

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

Answer 4

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