XE2でVCLスタイルをDLLのフォームに適用する方法について (ID:44159)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 ># DLL にスタイルをリソースとして埋め込むしかないと思います。 ですよね． VCL スタイルの設定はプロジェクトごとですから．DLL は別のプロジェクトです． で，やってみました．Delphi XE2 に添付されている Amethyst Kamri でやってみました． この VCL スタイルのファイル名は AmethystKamri.vsf です． ところが，以下のコードで，LoadFromResouce が nil となってしまいます． リソースは，[プロジェクト] [リソースと画像] で追加しています． if FindResource(HInstance, 'Resource_1', RT_RCDATA) <> 0 then begin if TStyleManager.LoadFromResource(HInstance, 'Resource_1', RT_RCDATA) <> nil then begin TStyleManager.SetStyle('Amethyst Kamri'); end; end; そこで，Delphi XE2 の新規にプロジェクトを作成し， この VCL スタイルを設定して保存し，コンパイルしてみました． 作成された Project1.dproj を見てみると，以下の記述がありました． これが VCL スタイルの設定のようです． <VCL_Custom_Styles>&quot;Amethyst Kamri|VCLSTYLE|$(PUBLIC)\Documents\RAD Studio\9.0\Styles\AmethystKamri.vsf&quot;</VCL_Custom_Styles> そこで，DLL のプロジェクトを新規に作成し，今回のテストでは，TestDll.dpr としました． 上のファイルに相当するのは，TestDll.dproj となります． これを開いて，上と同じコードを追加してみました． 追加したのは，2 行目です．場所がわかりやすいように，他のも書いておきました． AmethystKamri.vsf というファイルは，ここに書いてあるフォルダにコピーしてテストしています． <PropertyGroup Condition="'$(Base)'!=''"> <VCL_Custom_Styles>&quot;Amethyst Kamri|VCLSTYLE|D:\000\AmethystKamri.vsf&quot;</VCL_Custom_Styles> <VerInfo_Locale>1041</VerInfo_Locale> <VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys> <DCC_Namespace>Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;System;Xml;Data;Datasnap;Web;Soap;Winapi;$(DCC_Namespace)</DCC_Namespace> <DCC_E>false</DCC_E> <DCC_F>false</DCC_F> 上の 1 行を追加した上で， Dll 内のフォームを生成するイベントで次のコードを実行します． Dll 内のフォームの名前が DllForm の場合です． procedure TDllForm.FormCreate(Sender: TObject); begin TStyleManager.TrySetStyle('Amethyst Kamri'); end; Windows 7 U64(SP1) + Delphi XE2(UP4) で動作確認しました． 実際問題として，DLL という別のファイルを作成するアプリなのだから， ファイルから読み込んでも，いいんじゃないかとも思んですが．