作者: 潘汉杰

资源也是数据，它相当于我们熟悉的只读数据。在应用程序的可执行代码中，它是单独存储的，当其被调用时才载入程序，在程序执行完后又退出。Delphi中的资源有很多类型，适用于不同的地方，大致有以下几类：

●图标资源：是一种小型位图，用户常常用不同的图标代替不同的应用程序。

●光标资源：也是小型的位图，不过它适用的颜色不多。Delphi已经给光标指定了一个光标图案集，就是我们操作中常用到的Cursor属性，同时用户也可自定义光标图案。

●位图资源：Delphi只是将位图资源存入资源文件中，在使用时从资源文件中调出。

●字符串资源：将字串符文件存储于资源文件中。

本文通过实例程序来说明资源在Delphi中的用法，所有示例程序均在Delphi 4中调试通过。

1、生成资源文件
在Delphi中提供了一个图形编辑器（Image Editor），通过该编辑器可以编辑生产Bitmap、Icon和Cursor三种资源文件，也可以直接绘制ICO、CUR和BMP文件。该编辑器不能进行文字处理，具体文字处理在后面介绍。编辑图形类资源文件时，首先启动Image Editor，选择：File->New->Resource File ;在弹出的窗口中用鼠键右键单击“Contents”，再弹出的菜单中单击：New ;选择需要编辑的资源文件的类型（Bitmap、Icon或Cursor）。

2、装载与使用资源文件
资源文件编辑生成后（文件名后缀为.res），要使用这些资源文件，首先要通过添加代在表单文件的implementation关键字中加入：

{$R *.DFM}
{$R 资源文件名.RES}

定义了资源文件并且在单元文件中包括了资源文件名，需要调用Windows的API函数调用资源文件里的内容，如：LoadIcon，LoadString，LoadBitmap，LoadResource等。

例如：下面的语句装入了一个名为mybmp.bmp的文件：

Bmp.Handle := LoadBitmap(Hinstance , ''mybmp.bmp'');

下面示例程序说明了图标、光标和位图资源的使用方法，在资源文件TEST.RES中定义了两个光标（cur1和cur2）、两个位图（bmp1和bmp2）以及两个图标（in1和in2），在程序中对这些资源都进行了调用。并利用定时器使位图和图标的显示有类似动画的感觉。当鼠标移动到Ladel1上时，光标会变成你定义的第一个光标形状;当单击Button1后，再把光标移到Ladel1上时，光标会变成你定义的第二个光标形状。

unit testtes;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
Button1: TButton;
Image1: TImage;
Timer1: TTimer;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
bmp12 : Integer;
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
{$R TEST.RES}
const
crMycur1 = 1;
crMycur2 = 2;
procedure TForm1.FormCreate(Sender: TObject);
var
bmp : TBitmap;
ico : TIcon;
begin
Screen.Cursors[crMycur1] := LoadCursor(Hinstance,''CUR1'');
Screen.Cursors[crMycur2] := LoadCursor(Hinstance,''CUR2'');
Label1.Cursor := crMycur1;
bmp := TBitmap.Create ;
bmp.Handle := LoadBitmap(Hinstance,''BMP1'');
Image1.Width := bmp.Width + 10;
Image1.Height := bmp.Height + 10;
Image1.Canvas.Draw(4,8,bmp);
bmp12 := 1;
ico := TIcon.Create ;
ico.Handle := LoadIcon(Hinstance,''IN1'');
Icon := ico;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Cursor := crMycur2;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
var
bmp:TBitmap;
ico : TIcon;
begin
bmp := TBitmap.Create ;
ico := TIcon.Creat