ユーザー定義のリソースを使用する †
ユーザー定義のリソースを追加するで追加したリソースをプログラムから使用するには次のようにする。
リソースから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: 3669,
today: 2,
yesterday: 1
Last-modified: Sun, 05 Feb 2006 16:19:38 JST (7286d)
Last-modified: Sun, 05 Feb 2006 16:19:38 JST (7286d)
