フォント名を変更するには (ID:7000)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 procedure TForm1.Button1Click(Sender: TObject); begin Image1.Canvas.Font.Size:=50; Image1.Canvas.Font.Name:='Modern'; Image1.Canvas.Font.Charset:=OEM_CHARSET; Image1.Canvas.TextOut(30,30,'ABC'); end; ですね．Charsetを設定して下さい．