procedure TForm1.FormCreate(Sender:TObject);
begin
screen.cursors[crhand]:=loadcursor(Hinstance,’hand’);
panel1.cursor:=crhand;
end;
除了编写上面的代码以外,我们还需要做的一项工作是将资源文件加入到项目文件当中去,编译指令中的{$Rfilename}伪指令让我们来增加资源文件,让我们来看一看项目文件的代码。
program PCUR;
uses Forms,
HANDin’HAND.pas’{Form1};
{$R*.RES}
//这里的*意义为在程序编译以后会产生一个与项目文件同名的资源文件,在这里为PCUR.RES文件,这部分是自动产生的。
{$Rhand.res}//这部分是我们自己加入的自定义资源文件,这两个资源文件(HAND.RES和//PCUR.RES中的资源都会附加在可执行文件PCUR.EXE的后面。
begin
延伸阅读
文章来源于领测软件测试网 https://www.ltesting.net/