Delphi 绘图[2] 无Canvas属性，获取 Canvas 对象

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　　更新时间：