改变一个控制的字体,需要删除以前的字体吗?

[zjy]

改变一个控制的字体尺寸.
HFONT hFont,hNewFont;
LOGFONT logFont;
hFont = (HFONT)::SendMessage(hWnd, WM_GETFONT, 0, 0);
GetObject(hFont,sizeof(LOGFONT),&logFont);
logFont.lfHeight = pLogFont->lfHeight*2;
hNewFont = ::CreateFontIndirect(&logFont);
DeleteObject(hFont);//这里必要吗?我如果加上这句,此后,
//设置下一个同类控制时 GetObject函数会出错.

[softdoctor]

你的程序有错！
理论上DeleteObject(hFont)没错，
但此时您并没有将新的字体赋给该窗口。
造成该窗口DC的字体HFONT是非法的，
因此下一次GetObject会出错。
应加上::SetMessage(hWnd,WM_SetFont,...);

[zjy]

softdoctor先生：
由于我的疏忽.我确实忘记了。
补充上时这样的:
*************************************************
HFONT hFont,hNewFont;
LOGFONT logFont;
hFont = (HFONT)::SendMessage(hWnd, WM_GETFONT, 0, 0);
GetObject(hFont,sizeof(LOGFONT),&logFont);
logFont.lfHeight = pLogFont->lfHeight*2;
hNewFont = ::CreateFontIndirect(&logFont);
SendMessage(hWnd,WM_SETFONT,(WPARAM)hNewFont,TRUE);
DeleteObject(hFont);
*************************************************
问题:我如果加上DeleteObject(hFont)这句,
此后,设置下一个同类控制时
GetObject(hFont,sizeof(LOGFONT),&logFont)函数会出错.

[rabbit]

不需要,在使用完时，删除创建的字体