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;


//效果图:

---