UTF-8対応のEditコンポーネントを作りたい (ID:41190)

名前

ホームページ(ブログ、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