我将一个很小的bmp文件(文件名bk.bmp)编译进一个名叫background.RES的资源文件中,并使用{$R background.RES}编译指令包含在

  • 主题发起人 主题发起人 samz
  • 开始时间 开始时间
S

samz

Unregistered / Unconfirmed
GUEST, unregistred user!
我将一个很小的bmp文件(文件名bk.bmp)编译进一个名叫background.RES的资源文件中,并使用{$R background.RES}编译指令包含在我的应用程序中,但不知道为何执行时总是提示‘resource BG1 not found'(0分)<br />background.rc 文件如下:
BG1 bmp "bk.bmp"

我的程序如下:
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM }
{$R background.RES}
procedure TForm1.Button1Click(Sender: TObject);
var
Tmp_bk:TBitmap;
begin
Tmp_bk:=TBitmap.Create;
Tmp_bk.LoadFromResourceName(Hinstance, 'BG1')
end;

end.

没分了!
先多谢各位大富翁的指教!
 
资源文件中写:
BG1 BITMAP bk.bmp
^^^^^^
 
还是不行!bmp把改为Bitmap后,编译资源文件时出错,提示"Invalid Bitmap format"
 
我这儿没有问题,你能不能说详细些。
 
有两个错误,(1)在资源文件中bmp把改为Bitmap(2)在程序中把Tmp_bk:TBitmap改成Tmp_bk:hBitmap
 
后退
顶部