如何改变form title中的文字字体和字符集？

[wyarrant]

急，

在form属性中的font好像只是更改了其中的控件的字体，而不是form本身标题的字体
例如，我要是自己的form的标题为幼圆斜体应该怎么做呢？

如果做过的就是一个非常简单的问题

[bullHEcow]

帮你顶
一下

[GaoLun]

用一个 Panel + Lable 代替吧

[wyarrant]

有没有其他方法？

[ljianq]

form title的字体默认是操作系统控制的吧，除非你自绘标题条。

[tonylk]

同意 ljianq(泉深水清) 的，
这是系统控制的，除非更改系统设置，或者自己仿制一个title。

[wyarrant]

请问更该系统设置值得是什么呢？
如果自绘标题栏又要怎么做呢？

[wyarrant]

自绘标题栏比较麻烦
void __fastcall TForm1::FormPaint(TObject *Sender)
{
TCanvas* WindowCanvas;
RECT r;
AnsiString CustomCaption = "标 题 ";
TRect CaptionRect;

WindowCanvas = new TCanvas;
CaptionRect.Left = GetSystemMetrics(SM_CXFRAME);
CaptionRect.Right= Width- 4*GetSystemMetrics(SM_CXSIZE);
CaptionRect.Top = GetSystemMetrics(SM_CYFRAME);
CaptionRect.Bottom=CaptionRect.Top + GetSystemMetrics(SM_CYCAPTION)-1;

r.left=CaptionRect.Left + 22;
r.right=CaptionRect.Right-this->Width +130;
r.top = CaptionRect.Top;
r.bottom = CaptionRect.Bottom;

HDC WindowDC = GetWindowDC(Handle);
WindowCanvas->Handle = WindowDC;
SetBkMode(WindowCanvas->Handle,TRANSPARENT); // transparent mode so text
WindowCanvas->Font->Color=clWhite; // does not wipe out shading

WindowCanvas->Font->Style = WindowCanvas->Font->Style << fsBold;
WindowCanvas->Font->Charset = GB2312_CHARSET;
WindowCanvas->Font->Name = "宋体";
DrawText(WindowCanvas->Handle,CustomCaption.c_str(),CustomCaption.Length(),
&r,DT_SINGLELINE|DT_VCENTER); // draw with vert centered text
delete WindowCanvas;
}

如果需要更改菜单字体需要一个一个的手绘请问有没有一劳永逸的方法呢？

[goneaway1981]

改注册表

[wyarrant]

请详细说明