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

[lastshrill]

我的mm.rc中的内容如下：
gray Bitmap F:\manager\graylamp.bmp
green Bitmap F:\manager\greenlamp.bmp
red Bitmap F:\manager\redlamp.bmp
port1 Bitmap F:\manager\portgray.bmp
port2 Bitmap F:\manager\portgreen.bmp
port3 Bitmap f:\manager\portred.bmp
frame1 Bitmap F:\manager\frame.bmp
switch Bitmap F:\manager\switch.bmp
用brcc32 编译通过，用image editor 可看到图片
但用Image1.Picture.Bitmap.LoadFromResourceName(HInstance,'gray')
提示'gray'找不到，
{$R *.res} 下我加了{$R mm.res}
文件都在同一目录下
我在那儿弄错了，我希望能用Image调用其中的全部图片

[vivian_y]

你看看下面的代码，不知对你有没有帮助
unit Unit1;

interface

uses
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.

[lastshrill]

我试过了，不行，还有别的办法吗？

[Kingron]

把所有的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

应该没有问题啊。我测试一下，通过啦，很奇怪啊！要不你就仔细看看你的程序，你的方法是没有问题的。

[yhec]

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