FontDialogの使い方 FontDialogの使い方
FontDialogは「フォントの指定」コモンダイアログをカプセル化したコンポーネントです。このコンポーネントを使うとユーザが選択したフォントを簡単に他のコンポーネントに設定できます。
次の例はTrueTypeフォントの中からユーザが選んだフォントをLabelコンポーネントに設定するものです。
使用例
procedure TForm1.Font2Click(Sender: TObject);
begin
FontDialog1.Options := [fdTrueTypeOnly];
if FontDialog1.Execute then
Label1.Font := FontDialog1.Font;
end;