掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
英語での文字化け対策 (ID:42633)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
> （追加質問１） すべてのフォントを変更するのは面倒ですよね。 先にも書きましたが ParentFont を有効活用すれば、フォーム単位での修正で済みます。それが無理なのであれば... for i:=0 to ComponentCount-1 do begin if (Components[i] is TButton) then begin Components[i].Font.Name := DEFFONT_NAME Continue; end; if (Components[i] is TCustomEdit) then begin ... end; このような処理を Form の OnCreate に記述したものをベースフォームとし、 既存のフォームをこのベースフォームから派生させるようにすれば多少は楽になります。 (既存のフォームに OnCreate イベントハンドラがあるのなら inherited を追加して下さいね) >（追加質問２） HasJpFont := Screen.Fonts.IndexOf('ＭＳ Ｐゴシック'); でどうですか？応用として HasMeiryo := Screen.Fonts.IndexOf('メイリオ'); このようにすれば、 "XP でもメイリオフォントがインストールされていれば、メイリオフォントを使う" ...なんて事ができます。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.