关于资源文件中多个图片的调用，难啊！

Question

你看看下面的代码，不知对你有没有帮助
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, StdCtrls;type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Image1: TImage;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
    procedure ShowImage(ImageName: Pchar);
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.DFM}
{$R SelectImage.res}
  
procedure TForm1.ShowImage(ImageName: Pchar);
var
  B :HBitMap ;
begin
  B := LoadBitmap(HINSTANCE,ImageName);
  Image1.Picture.Bitmap.Handle := B;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowImage('animal');
end;procedure TForm1.Button2Click(Sender: TObject);
begin
  ShowImage('gate');
end;end.

Answer 1

把所有的Bmp文件Copy到当前目录，修改rc文件：
gray  Bitmap graylamp.bmp
green  Bitmap greenlamp.bmp
red    Bitmap redlamp.bmp
port1  Bitmap portgray.bmp
port2  Bitmap portgreen.bmp
port3  Bitmap portred.bmp
frame1 Bitmap frame.bmp
switch Bitmap switch.bmp应该没有问题啊。我测试一下，通过啦，很奇怪啊！要不你就仔细看看你的程序，你的方法是没有问题的。

Answer 2

要把 mm.rc 加到工程中，菜单中
   Project-->Add to Project