Showmessageにおけるフォント

カツラダ 2008-10-16 06:47:37 No: 32231

ShowMessage関数をつかうと、いつもMS P ゴシックで表示されるのですが、これをMS ゴシックに変えたいのです。どなたか方法を教えて下さい。

ofZ 2008-10-16 07:04:37 No: 32232

ShowMessageは、CreateMessageDialogでフォームを作成しているので、
こんな感じの関数作るしかないのでは？

with CreateMessageDialog(メッセージ, TMsgDlgType, TMsgDlgButtons) do
try
  Font.Name := 'ＭＳ  ゴシック';
  Position := poScreenCenter;
  ShowModal;
finally
  Free;
end;

cocomo 2008-10-17 08:42:33 No: 32233

便乗してお聞きしたいのですが、CreateMessageDialog等を使って
Formのフォント(Labelやボタンの大きさ)を大きくする事は出来ないのですか？

私は現在、CreateMessageDialogの元のDialogsソースを流用して
ソースを改造、フォントやボタンの大きさを変えています。

ソース改造することなく、もっといい方法があれば教えてもらえませんか？

ofZ 2008-10-17 17:16:20 No: 32234

以下のURLでは参考にならないかな？

MessageDlg のデフォルトボタンを変更したい。
http://www.asahi-net.or.jp/~HA3T-NKMR/tips011.htm

Showmessage で出力される文字サイズを変えるには？
https://www.petitmonte.com/bbs/answers?question_id=2953