songfens 2020-02-01
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 更新时间: