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

相关推荐