数组 – Delphi:TImage数组
发布时间:2020-12-15 09:36:21 所属栏目:大数据 来源:网络整理
导读:这是我的全部代码: unit Unit1;interfaceuses Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,ExtCtrls;type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); private { Private declarations } public { Pub
这是我的全部代码:
unit Unit1; interface uses Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,ExtCtrls; type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; Images: array[0..29,0..39] of TImage; //array implementation {$R *.dfm} //form create procedure TForm1.FormCreate(Sender: TObject); var xx,yy: Integer; //local variables begin for xx:=0 to 29 do for yy:=0 to 39 do begin Images[xx,yy]:=Timage.Create(Form1); Images[xx,yy].Canvas.Rectangle(0,17,17); Images[xx,yy].Left:=xx*16; Images[xx,yy].Top:=yy*16; end; end; end. 我总是得到错误:“Project Project1.exe引发了异常类EClassNotFound并显示消息”未找到TImage“.进程已停止.使用步骤或运行继续” 我在互联网上尝试过其他代码,例如: 什么都没有帮助!为什么会这样? 谢谢. 解决方法
你确定在TImage.Create的行中得到例外吗?难道你有一个无效的DFM文件仍然包含TForm1声明中缺少的TImage实例吗?
通常,在表单或数据模块中用作子项的所有类都会自动注册为流式传输.由于表单中没有声明TImage,并且没有其他形式的应用程序包含TImage,因此没有注册. 您可以通过将TImage放到表单上来进行测试. (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |