用画刷在屏幕上写字

最新推荐文章于 2025-06-08 13:53:37 发布

weixin_33744854

最新推荐文章于 2025-06-08 13:53:37 发布

阅读量986

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/rogee/archive/2010/09/14/1827253.html

本文介绍了一种在Delphi中使用TCanvas组件进行绘图的方法，包括设置画笔宽度、字体大小和颜色，以及在指定窗口上输出文本的具体实现。此技巧对于Delphi开发者理解和掌握绘图功能具有一定的参考价值。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

procedure TForm1.btn1Click(Sender: TObject);
var
  c:TCanvas;
begin
  c:= TCanvas.Create;
  c.Pen.Width  := 5;
  c.Font.Size := 20;
  c.Font.Name := '微软雅黑';
  c.Font.Color := clRed;
  c.Brush.Color := clBlack;
  try
    //c.Handle := GetDC(0);
    c.Handle := GetWindowDC(1181728); // 这句是在一个指定窗体上写字
    c.TextOut(20,20,'曲终的BLOG');
  finally
    c.Free;
  end;
end;

转载于:https://www.cnblogs.com/rogee/archive/2010/09/14/1827253.html