菜求助,如何dELPHI中的label框示以及色,在等
如何dELPHI中的label框示以及色
[解决办法]
- Delphi(Pascal) code
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 没有的 可以用我的方法。
或者增加 属性
[解决办法]
加上色 Label1.Canvas.Pen.Color := clRed;