//声明:
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;
//效果图:
转载于:https://my.oschina.net/hermer/blog/319872