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
相關文章
相關標籤/搜索