procedure TForm1.FormPaint(Sender: TObject);
var
FLogFont: tagLogFontW;
hTempFont, hPrevFont: HFONT; //字体句柄
hTempDC: HDC; //设备描述表或图形设备句柄
TempString: string; //输出的文字
begin
FLogFont.lfHeight := 10; //字高
FLogFont.lfWidth := 10; //字宽
FLogFont.lfWeight := 1; //字体笔划粗细程度
FLogFont.lfUnderline := 0; //没有下划线
FLogFont.lfStrikeOut := 0; //没有删除线
FLogFont.lfItalic := 0; //斜体效果否
FLogFont.lfCharSet := GB2312_CHARSET; //字符集
FLogfont.lfEscapement := 450; //倾斜度
// FLogFont.lfOrientation := 450; //方向与倾斜度取值同
FLogFont.lfFaceName := '宋体';//字体名称
//创建逻辑字体
hTempFont := CreateFontIndirect(FLogFont);
TempString := '测试';
hTempDC := GetDC(Handle); //取出窗口设备的当前字体，并替换为新字体
hPrevFont := SelectObject(hTempDC, hTempFont);//设置设备窗口的文字色彩
SetTextColor(hTempDc, clRed);
TextOut(hTempDc, 200 , 200, PChar(TempString), Length(TempString));
SelectObject(hTempDc, hPrevFont);
DeleteObject(hTempFont);
ReleaseDC(Handle, hTempDC);
end;