如何生成旋转字体代码如下：
| procedure TForm1.Button1Click(Sender: TObject); var lf:tlogfont; tf:tfont; begin tf:=tfont.Create; tf.Assign(button1.font); getobject(tf.handle,sizeof(lf),@lf); lf.lfEscapement:=450; lf.lfOrientation:=450; tf.Handle:=createfontindirect(lf); button1.parentfont:=false; button1.Font.Assign(tf); tf.free; end; |
原创文章如转载，请注明：转载自心动吧DELPHI网络书 [ http://www.abcxd.com/delphi/ ]
本文链接地址：http://www.abcxd.com/delphi/abcxddelphi/delphiZT/8.html