TFontStyle型への値の代入方法は? (ID:4875)

名前

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

本文 Font.Style := [fsBold, fsItalic, fsUnderline, fsStrikeOut]