Delphi 绘图[2] 无Canvas属性，获取 Canvas 对象
//例如 Panel1 无TCanvas 属性，获取TCanvas
var
Cvs: TCanvas;
begin
Cvs:= TCanvas.Create;
Cvs.Handle := GetDC(Panel1.Handle);
Cvs.Brush.Color := clBlue;
Cvs.FillRect(Panel1.ClientRect);
Cvs.Free;
end;
创建时间：2020.02.01 更新时间：
Delphi 绘图[2] 无Canvas属性，获取 Canvas 对象
原文：https://www.cnblogs.com/guorongtao/p/12250066.html