如何将字符窜转化为对象名(100分)

  • 主题发起人 主题发起人 metezb
  • 开始时间 开始时间
say what you need in detail
 
if 字符串=对象1.name then
begin
// 对象1
end
else
 
我记得有个API函数可以通过对象名与属性名字符串访问与设置对象的属性。
还得找找......
 
如果一个图片叫imgABC,那么
Timage(FindComponent('imgABC'))就得到这个图片对象.
 
比如你要要用某个Button,就这样;
var
Button:TButton;
begin
......
Button:=FindComponent('SomeButtonNams') as TButton;
Button.some;
......
end;

是这个意思吗?
 
不明白:-(
 
用Tstring类
不太明白metezb的意思
:-|
 
不太明白你的意思???
但对象名在程序中是不能改变的(除非动态创建).
若想得到对象的字符串.则
var p:string;
...
p:=(sender as Tbutton).name
....
 
就是findcomponent API,很常用!
 
谢谢各位的帮助,
大家给本人了很多建议,特别是cAkk与onedolph
他们的答案是:
1。 如果一个图片叫imgABC,那么
Timage(FindComponent('imgABC'))就得到这个图片对象
2。var
Button:TButton;
begin
......
Button:=FindComponent('SomeButtonNams') as TButton;
Button.some;
......
end;
 
呵呵,CJ同志还没睡啊? 好像此刻就咱们2个还在了.
我也得去睡了,明天还要加班,必须要在这2天之内做出一个网上报税系统出来...
你也该休息了,干革命要注意方式方法嘛!呵呵.
 
cakk:当时小3也在网上呦,昨天我是出去玩到11点半回来再干革命的呀:-)
 
多人接受答案了。
 
后退
顶部