在页面启动时,想为两个图片控件导入位图,代码如下:
var
  
  path:string;
  BtnSt: Array[Boolean] Of String = ('B_%d_UP', 'B_%d_DOWN');Procedure Tform1.CmdMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
Begin
  (Sender As TImage).Picture.Bitmap.LoadFromResourceName(HInstance,
    Format(BtnSt[True], [(Sender As TImage).Tag]));
End;Procedure Tform1.CmdMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
Begin
  (Sender As TImage).Picture.Bitmap.LoadFromResourceName(HInstance,
    Format(BtnSt[False], [(Sender As TImage).Tag]));
End;Procedure tform1.CmdBtnLoad(Var Btn: TImage; Hint: String; index: Integer);
Begin
    Btn.Hint := Hint;
    Btn.Cursor := crHandPoint;
    Btn.Tag := index;
    Btn.OnMouseDown := CmdMouseDown;
    Btn.OnMouseUp := CmdMouseUp;
    CmdMouseUp(Btn, mbLeft, [ssDouble], 2, 2);
End;procedure TForm1.FormCreate(Sender: TObject);
begin
   Path := ExtractFilePath(ParamStr(0));
   CmdBtnLoad(Image1, '抓图', 1);
   CmdBtnLoad(Image2, '设置', 2);
end;在Res文件夹放入了四个位图图片,名称分别是:B_1_UP,B_2_UP,B_1_DOWN,B_2_DOWN.但是程序运行时提示出现下面错误:
---------------------------
Debugger Exception Notification
---------------------------
Project Project1.exe raised exception class EResNotFound with message 'Resource B_1_UP not found'. Process stopped. Use Step or Run to continue.
---------------------------
OK   Help   
---------------------------
请高手指点是哪里的错误呀?