WinAPI: SetTextColor - 设置设备环境的文本颜色

//声明:

SetTextColor(

  DC: HDC;        {设备环境句柄}

  Color: COLORREF {颜色值}

): COLORREF;      {返回指定的颜色值; 如果返回值是 CLR_INVALID 表示设置失败}


 
   




//举例:

procedure TForm1.Button1Click(Sender: TObject);

begin

  SetTextColor(Canvas.Handle, clRed);

  Canvas.TextOut(80, 60, '万一的 Delphi 博客');

end;


 
   




//效果图:

---