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

posted on 2020-02-01 20:42  滔Roy  阅读(389)  评论(0编辑  收藏  举报

导航