//声明:
SetTextColor(DC: HDC; {设备环境句柄}Color: COLORREF {颜色值}
): COLORREF; {返回指定的颜色值; 如果返回值是 CLR_INVALID 表示设置失败}//举例:
procedure TForm1.Button1Click(Sender: TObject);
beginSetTextColor(Canvas.Handle, clRed);Canvas.TextOut(80, 60, '万一的 Delphi 博客');
end;//效果图:
