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

//声明:
SetTextColor(
  DC: HDC;        {设备环境句柄}
  Color: COLORREF {颜色值}
): COLORREF;      {返回指定的颜色值; 如果返回值是 CLR_INVALID 表示设置失败}

//举例: procedure TForm1.Button1Click(Sender: TObject); begin   SetTextColor(Canvas.Handle, clRed);   Canvas.TextOut(80, 60, '万一的 Delphi 博客'); end;
//效果图:

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


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