如何在Delphi中获得TEdit的画布？

发布时间：2020-12-15 04:29:59 所属栏目：大数据来源：网络整理

导读：我想缩短文件名以适应TEdit,比如 Edit1.Text := MinimizeName(FileName,Edit1.Canvas,Edit1.Width); 不幸的是,这不能编译,因为TEdit直接具有Canvas属性.其字体指标需要画布. 如何访问TEdit的画布？ (MinimizeName在Vcl.FileCtrl中声明.) 解决方法您可以使用

我想缩短文件名以适应TEdit,比如

Edit1.Text := MinimizeName(FileName,Edit1.Canvas,Edit1.Width);

不幸的是,这不能编译,因为TEdit直接具有Canvas属性.其字体指标需要画布.
如何访问TEdit的画布？

(MinimizeName在Vcl.FileCtrl中声明.)

解决方法

您可以使用 TControlCanvas.您还应该考虑控件的字体.

例如.：

var
  Canvas: TControlCanvas;

Canvas := TControlCanvas.Create;
try
  Canvas.Control := Edit1;
  Canvas.Font.Assign(Edit1.Font); 

  // Do something with Canvas... 
finally
  Canvas.Free;
end;

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!