我将控件名(image1...)保存到TList中然后,我要在后面使用保存的控件,但只能从tlist中得到保存的字符串!而他不识别为控件?????代码如下: type
PMyList = ^AList;
AList = record
C: string;
end;
var List: TList;
ARecord:PMylist;
begin
list:=tlist.Create; new(ARecord);
ARecord^.c:='img';
List.Add(ARecord);
img.Stretch:=true;
ARecord:=list.Items[0];// ARecord^.c只得到字符串‘img’,并不能识别为控件名????
//这里我要建img控件,并调图????? dispose(ARecord);
list.Free;
PMyList = ^AList;
AList = record
C: string;
end;
var List: TList;
ARecord:PMylist;
begin
list:=tlist.Create; new(ARecord);
ARecord^.c:='img';
List.Add(ARecord);
img.Stretch:=true;
ARecord:=list.Items[0];// ARecord^.c只得到字符串‘img’,并不能识别为控件名????
//这里我要建img控件,并调图????? dispose(ARecord);
list.Free;
解决方案 »
- Excel导入SQL Server 出现问题~
- 第一次散分,问些工作问题。
- 哪里有显示各种效果的源代码,例如浮雕,波浪
- 看过“重构”之后的总结!请大家讨论
- 多层的实现,怎样使用中间件将各层连接起来?
- 怎样把一个字串的右向左五位取出来呀/有没有方法能从一个字串的中间向左或向右取三个字符?
- 请问有谁进行过WAP开发的? 请教.
- 用adotable可以不让DBGRID自动提交记录
- Delphi 7和Delphi.net是不是同一个东东?
- 在看《windows 核心编程》一本书,里面的讲解是用vc++,可我不会,难道我非用学vc吗?你们是怎么看这本书的?
- 请问一个简单的算法问题?
- 看一下代码,为什么还是不能去掉 数据库登录框????在线!
要建image控件,就要声明TImage实例,再创建啊.
不明白你为什么要这么做?
你想实现什么呢?
PMyList = ^AList;
AList = record
C: string;
end;你放进去的本身就只是一个string嘛!哪里是什么对象?
你用TObjectList来做你想做的这个事吧!
用数组保存也可,只是便于以后我用编号来调用前面我已经声明了 在这里我要创建:
img:=timage.Create(form1);//img是保存在TLIST中的,如保写
img.Parent:=form1;
img.Visible:=true;
var List: TList;
begin
list:=tlist.Create;
//保存控件与列表
List.Add(Image1);//其实保存的是指针
List.Add(Edit1);
.....
将来如果想访问,就这样 :
if List.Items[0] is TImage then
(List.Items[0] As TImage).Strech := true;
if List.items[1] it TEdit then
(List.items[1] As TEdit).text := 'h';