SelFontName(RichTextなど)

SelFontNameプロパティは選択しているテキストのフォント名を取得, または設定します。Delphiでは 「SelAttributes」プロパティ(TTextAttributes型)の 「Name」プロパティで設定可能です。(RichEditの Font.Charsetプロパティを DEFAULT_CHARSETに設定すると英字のフォントも設定可能になります。)

■ TRichEditのフォントを設定する例

procedure TForm1.btnBoldClick(Sender: TObject); begin {フォントダイアログに現在のフォントを設定} FontDialog1.Font.Name := RichEdit1.SelAttributes.Name; {フォントダイアログを表示} if (FontDialog1.Execute) then begin {選ばれたフォントを適用する} RichEdit1.SelAttributes.Name := FontDialog1.Font.Name; end; end;