如何，用api函数修改一个Edit控件的字体？

Question

如何，用api函数修改一个Edit控件的字体？

Answer 1

为什么要用API，用自身的FONT属性不是很好吗？  Edit1.Font.Name := '隶书';
  Edit1.Font.Size := 20;

Answer 2

看看msdn吧
hfont:= createFont(.....);//创建一个新的字体
holdfont:=SelectObject(edt1.canvas.handle,hfont);//选择
....//操作
SelectObject(edt1.canvas.handle,holdfont);//恢复字体
DeleteObject(hfont);//删除新的字体

Answer 3

看看msdn吧
hfont:= createFont(.....);//创建一个新的字体
holdfont:=SelectObject(edt1.canvas.handle,hfont);//选择
....//操作
SelectObject(edt1.canvas.handle,holdfont);//恢复字体
DeleteObject(hfont);//删除新的字体

Answer 4

看看msdn吧
hfont:= createFont(.....);//创建一个新的字体
holdfont:=SelectObject(edt1.canvas.handle,hfont);//选择
....//操作
SelectObject(edt1.canvas.handle,holdfont);//恢复字体
DeleteObject(hfont);//删除新的字体
Microsoft OLE DB Provider for SQL Server 错误 '80040e31' 超时已过期 /Expert/reply.asp，行105