在页面启动时,想为两个图片控件导入位图,代码如下:
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
---------------------------
请高手指点是哪里的错误呀?
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
---------------------------
请高手指点是哪里的错误呀?
begin
Path := ExtractFilePath(ParamStr(0));
CmdBtnLoad(Image1, '抓图', 1);
CmdBtnLoad(Image2, '设置', 2);
end;路径出错了,你的图片不是在程序所在文件夹下~~而是在下一级文件夹下~~