リソースの使い方

DelphiではBorland C++などのようにリソースを直接、扱ってメニューを作ったりダイアログボックスを作る必要はありません。直接リソースを使うとすれば、ビットマップや文字列リソースが対象となると思われます。

文字列リソースの使用

文字列リソースはresourcestringの後に文字列を定義することによって使用できます。

例

var
  Form1: TForm1;

resourcestring
   ResString1 = 'This is a resource string.';

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Label1.Caption := ResString1;
end;

ビットマップリソースの使用

リソースはツールメニューのイメージエディタを起動して作れます。リソースファイルの拡張子はresにしてください。次の例はリソースファイルfrmResource.resからビットマップを読み込んで表示するものです。リソースファイルは{$R filename}として指定しています。

例

implementation

{$R *.DFM}
{$R frmResource.res}

procedure TForm1.Button1Click(Sender: TObject);
begin
    try
        bitmap := TBitmap.Create;
        bitmap.LoadFromResourceName(HInstance, 'BITMAP1');
        Form1.Canvas.Draw(40, 120, bitmap);
        Form1.Canvas.TextOut(40, 160, IntToStr(bitmap.Width) + ' ' + IntToStr(bitmap.Height));
    finally
        bitmap.Free;
    end;
end;