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 更新时间:
原文地址:https://www.cnblogs.com/guorongtao/p/12250066.html
时间: 2024-10-09 02:54:03