Delphi 绘图TCanvas[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 更新时间:
博客园 滔Roy https://www.cnblogs.com/guorongtao 希望内容对你有所帮助,谢谢!