请问在使用Api函数Textout时如何改变字体的大小和类型? 例如:canvas.font.size:=9;canvas.font.name:='宋体';canvas.textout(10,10,'你好'); 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 跟textout的父对象有关。例如使用form.textout时,字体大小跟form的字体大小一样 to wangzh: 使用Api的textout没有Canvas呀。 好像得用CreateFont建一字体来指定大小然后用SelectObject选进HDC, newfont := CreateFont(...); // 在这里设定字体大小和类型oldfont := SelectObject( dc, newfont );TextOut(...);SelectObject( dc, oldfont );DeleteObject( newfont ); 我这样试了试,可是不行: GetObject(GetDC(0), Sizeof(TLogFont), @LogFont); LogFont.lfHeight := LogFont.lfHeight + 40; //字体高度 NewFont := CreateFontIndirect(LogFont); OldFont := SelectObject(GetDC(0), NewFont); TextOut(GetDC(0), 20,20, ' dfdfdfdf' ,7); 窗体被覆盖后,重新激活,会驱动什么事件 delphi 連接bde出錯 如何用KeyBD_Event模拟出ALT+G 求一个函数的更改. dbgrid中点击title进行排序,连的是BDE/QUERY 已知第三方远件的句柄,如何访问其属性或方法? 如何实现这样的数据表格??? 从word文件中提取每条线段 请问:如何查看进程和驱动器的信息 treeview 节点选择问题 我想实现播放图片的功能!!那位高手肯帮帮忙!!!紧急!!有源代码!!! 请问InfoPower3000Std_vcl5的安装序列号及安装密码?
然后用SelectObject选进HDC,
DeleteObject( newfont );
GetObject(GetDC(0), Sizeof(TLogFont), @LogFont);
LogFont.lfHeight := LogFont.lfHeight + 40; //字体高度
NewFont := CreateFontIndirect(LogFont);
OldFont := SelectObject(GetDC(0), NewFont);
TextOut(GetDC(0), 20,20, ' dfdfdfdf' ,7);