Delphi旋转文字

procedure TForm1.Button2Click(Sender: TObject); var lf : TLogFont; tf : TFont; begin with Form1.Canvas do begin Font.Name := '宋体'; Font.Size := 24; tf := TFont.Create; tf.Assign(Font); GetObject(tf.Ha
相关文章
相关标签/搜索