在页面启动时,想为两个图片控件导入位图,代码如下:
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
---------------------------
请高手指点是哪里的错误呀?
解决方案 »
- 谁给我发一个senkey32.pas这个文件
- 中秋节快乐,程序员兄弟姐妹近来接分了!!!
- 请问win95支持DecodeDate么?请帮忙。
- dxdbgridd 在哪有下载,是不是免费的?高手指教
- dbgrid中如何可以一次选择多行?
- 请问如何在不提示的情况下安装Activex组件
- 没老婆,想配个机子当老婆吧,请大家帮忙,先谢了!
- 如何使图片自动适应image控件的大小?
- 关于库存核算方面的问题:大家核算库存成本都用的哪些算法?
- 关于windows消息问题:::::wndproc(var msg:tmessage)在哪里??inherit怎样使用?...还有更多请进..!!!
- 怎样打开Excel表格 delphi
- 如何获取opera中打开的页面中打开的网页的源代码
begin
Path := ExtractFilePath(ParamStr(0));
CmdBtnLoad(Image1, '抓图', 1);
CmdBtnLoad(Image2, '设置', 2);
end;路径出错了,你的图片不是在程序所在文件夹下~~而是在下一级文件夹下~~