WinAPI: TextOut - 输出文本

//声明:

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;


 
   




//效果图:

---