C
cf83325
Unregistered / Unconfirmed
GUEST, unregistred user!
最近实现这样一个功能,在pagecontrol上动态生成tabsheet,和动态groupbox的问题
[软件分类名称]
网络工具=
系统工具=
输入法=
//读取 软件分类名称,生成相应的tabsheet
procedure TMyComponent.Softclassify;
var
FilePath : string;
strlist ; Tstringlist;
IniFile : TIniFile;
begin
try
strList := TStringList.Create;
FilePath := ExtractFilePath(ParamStr(0)) + 'Set_Infor.ini';
IniFile := TIniFile.Create(FilePath);
IniFile.ReadSection('分类名称' , strList);
finally
IniFile.Free;
end;
end;
[网络工具]
Soft1_Name=MSN
Soft1_Install=”network/msn.exe /slient”
Soft1_Pic=Picture/aa.jpg
Soft1_desc="MSN是常用的聊天工具之一,由微软出品…"
Soft1_URL=http://www.msn.com
Soft1_mode=2,3
Soft2_Name ….
对如软件类别,用户手工在ini里面添加Soft2_Name , soft3_Name..以致更多软件名称.生成相应的groupbox很不好读。。好心的人给个提示。。。最后有个几行代码提示,思路也可以
[系统工具]
好友"系统工具" , 聊天工具,动态添加,动态生成相应的Tabsheet
[软件分类名称]
网络工具=
系统工具=
输入法=
//读取 软件分类名称,生成相应的tabsheet
procedure TMyComponent.Softclassify;
var
FilePath : string;
strlist ; Tstringlist;
IniFile : TIniFile;
begin
try
strList := TStringList.Create;
FilePath := ExtractFilePath(ParamStr(0)) + 'Set_Infor.ini';
IniFile := TIniFile.Create(FilePath);
IniFile.ReadSection('分类名称' , strList);
finally
IniFile.Free;
end;
end;
[网络工具]
Soft1_Name=MSN
Soft1_Install=”network/msn.exe /slient”
Soft1_Pic=Picture/aa.jpg
Soft1_desc="MSN是常用的聊天工具之一,由微软出品…"
Soft1_URL=http://www.msn.com
Soft1_mode=2,3
Soft2_Name ….
对如软件类别,用户手工在ini里面添加Soft2_Name , soft3_Name..以致更多软件名称.生成相应的groupbox很不好读。。好心的人给个提示。。。最后有个几行代码提示,思路也可以
[系统工具]
好友"系统工具" , 聊天工具,动态添加,动态生成相应的Tabsheet