随笔 - 2146  文章 - 19 评论 - 11846 阅读 - 1266万

//声明:
TextOut(
  DC: HDC;       {设备环境句柄}
  X, Y: Integer; {起点坐标}
  Str: PChar;    {字符串指针}
  Count: Integer {字符串长度}
): BOOL;

//举例: procedure TForm1.FormPaint(Sender: TObject); const   str = '万一的 Delphi 博客'; begin   TextOut(Canvas.Handle, 50, 50, str, Length(str)); end;
//效果图:

posted on   万一  阅读(6200)  评论(8编辑  收藏  举报


点击右上角即可分享
微信分享提示