掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
UTF-8対応のEditコンポーネントを作りたい (ID:41185)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
お久しぶりです、数年ぶりに書き込みます。 環境はXP SP3 Delphi７Pro です。 UTF-8に対応するEditコンポーネントを作成しています。 以下のページで形だけは作ることができました。 https://www.petitmonte.com/bbs/answers?question_id=2639 以下が、自分が変更したコードです。 procedure TForm1.FormCreate(Sender: TObject); begin //Unicode対応エディットコントロール richEditx := CreateWindowW( 'edit', nil, WS_CHILD or ES_MULTILINE or WS_VISIBLE, 8, //Left 8, //Top 200, //Width 200, //Height Handle, //親ウィンドウ 0, 0, nil ); //フォントのセット if (richEditx <> 0) then begin SendMessageW(richEditx, WM_SETFONT, WPARAM(GetStockObject(DEFAULT_GUI_FONT)), 0); end; end; これに、UTF-8形式で文章を保存する機能を付けたいのですが、 何をどのように実装すれば良いでしょうか？ よろしくお願いします。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.