我在PANEL里面设置了30个IMAGE,命名是IMAGE1-IMAGE30,程序下有一个INI文件,里面的格式是:
[image1]
name=编号
active=1
lt=52
weight=3.4
number=8
[image1]
name=编号2
active=0
lt=12
weight=2.7
number=12我想在FORMCREATE事件里写段代码:设置IMAGE1的HINT信息就是这个文件里面的信息.
比如:IMAGE1的HINT是 NAME编号 LT52 WEIGHT3.4 NUMBER8.
以前记得多个按钮可以共用一个事件,可以区分某个按钮的命名,不知道这个能不能适用.
[image1]
name=编号
active=1
lt=52
weight=3.4
number=8
[image1]
name=编号2
active=0
lt=12
weight=2.7
number=12我想在FORMCREATE事件里写段代码:设置IMAGE1的HINT信息就是这个文件里面的信息.
比如:IMAGE1的HINT是 NAME编号 LT52 WEIGHT3.4 NUMBER8.
以前记得多个按钮可以共用一个事件,可以区分某个按钮的命名,不知道这个能不能适用.
解决方案 »
- delphi2010中都用什么报表控件
- s:=strToFloat(edit1.Text); 这样居然会说 not a valid floating point value ???
- Cxgrid的一列,property为combobox,怎样实现动态添加item,
- 谁玩过视频卡?
- 推荐一个好网站{程序员的热土}
- 试问这样的程序是怎么做的?
- [求助]dll的注册和运行异常~
- 怎樣用RealPlayer ActiveX Control Library(Version 1.0)控件做視頻播放器?
- 线程的循环使用过程!急急急!!!!
- 请高手进来,江湖救急呀!!!!
- 请教 idHTTP接收网页源代码问题
- BBS.csdn.....
[image2]
name=编号2
active=0
lt=12
weight=2.7
number=12
i: integer;
ini: TIniFile;
res: string;
begin
ini := TIniFile.Create('c:\MyIni.ini');
try
for i:=0 to ComponentCount -1 do
begin
if Components[i] is TImage then
(Components[i] as TImage).HINT:=
'NAME'+ini.ReadString((Components[i] as TImage).Name, 'Name', '')+' '+
'LT'+ini.ReadString((Components[i] as TImage).Name, 'lt', '')+' '+
'WEIGHT'+ini.ReadString((Components[i] as TImage).Name, 'weight', '')+' '+
'NUMBER'+ini.ReadString((Components[i] as TImage).Name, 'number', '')+' '+
end,
MessageDlg('Value of Section: ' + res, mtInformation, [mbOK], 0);
finally
ini.Free;
end;
end;
i: integer;
ini: TIniFile;
begin
ini := TIniFile.Create('c:\MyIni.ini');
try
for i:=0 to ComponentCount -1 do
begin
if Components[i] is TImage then
(Components[i] as TImage).HINT:=
'NAME'+ini.ReadString((Components[i] as TImage).Name, 'Name', '')+' '+
'LT'+ini.ReadString((Components[i] as TImage).Name, 'lt', '')+' '+
'WEIGHT'+ini.ReadString((Components[i] as TImage).Name, 'weight', '')+' '+
'NUMBER'+ini.ReadString((Components[i] as TImage).Name, 'number', '')+' '+
end;
finally
ini.Free;
end;
end;
区分button事件,可以共用一个相应事件,传入的参数本来就是TObject,button控件就是从Tobject继承过来的,强制转化为Tbutton,对比Tag值就可以区分是哪个按钮了。
能给个代码吗,我现在已经需要的是只对PANEL里面的IMAGE操作,不对整个窗体里的IMAGE操作,现在我没用Components,用的是Controls。