資源文件的使用(100分)

本人在資源文件中加入了一 ICON1 資源
可在Image1中不能顯示,Why?
程序如下:
{$R aaa.res}
procedure TForm1.Button1Click(Sender: TObject);
begin
Image1.Picture.Icon.handle:=LoadIcon(HInstance,Pchar('ICON1'));
end;

是否还应确定HInstance的归属？

abchjb:
I have tested one method for you.I think you may do as following.

// the test program is here, if you have any problem ,please tell me!
unit Unit1;

interface

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

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

var
Form1: TForm1;

implementation

{$R *.DFM}
{$R ldy.res} // Attention please,you may abbreviate this line,
// 'ldy.res' means the file you have edited as resource file,the //*.ico's ID name is ICON1!!!!

procedure TForm1.Button1Click(Sender: TObject);
begin
Image1.Picture.Icon.handle:=LoadIcon(HInstance,'ICON1');
end;

end.

我试过了，没有任何问题呀!
是不是资源文件有问题？

将Image1.Picture.Icon.handle:=LoadIcon(HInstance,Pchar('ICON1'));
改为：Image1.Picture.Icon.handle:=LoadIcon(HInstance,'ICON1');试试！

abchjb:

这个问题已经很长时间没有人参加讨论，为保持版面
整洁，节约网友时间，请提问者选择继续讨论或结束
问题。关于本版管理细则，请参见<a href="http://www.gislab.ecnu.edu.cn/delphibbs/DispQ.asp?LID=111927">这个</a>问题。如两天
内提问者没有响应，我将采取强制措施。请提问者尽
可能自己处理自己的问题。这是您的权利，也是您的
义务。

如有管理建议，请到<a href="http://www.gislab.ecnu.edu.cn/delphibbs/DispQ.asp?LID=111927">这里</a>提出。谢谢！

看看资源文件中的图标名字是不是大写.(maybe this problem).

@@

to 郑宇轩:

请不要灌水!