ユーザー定義のリソースを使用する †
ユーザー定義のリソースを追加するで追加したリソースをプログラムから使用するには次のようにする。
リソースからRTF文章を読み取り、RichEditコンポーネントに表示してみる。
- {$R ファイル名} をソースに追加し、リソースを実行ファイルにリンクする。
- TResourceStreamのインスタンスを作成する。 第2引数にはリソース名を、第3引数にはリソースタイプ名を指定する。
- RichEdit1.Lines.LoadFromStream で RTF文章が表示される
サンプルコード
{$R sample.res} procedure DispRichText(ResourceName: String); var Stream: TResourceStream; begin Stream := TResourceStream.Create(hInstance, ResourceName, 'RTF'); try RichEdit1.Lines.LoadFromStream(Stream); finally Stream.Free; end; end;
Counter: 3468,
today: 1,
yesterday: 1
Last-modified: Sun, 05 Feb 2006 16:19:38 JST (6824d)
Last-modified: Sun, 05 Feb 2006 16:19:38 JST (6824d)