100 请教 !!! 程序运行时,动态增加组件,设置可以保存 如题!!! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 呵呵,我都是将它写在一个 INI 文件中的[main][C1]...[C2]... 同意 shuixin13(犬犬(心帆)) 也可以用注册表不过思路都是一样的 1、将控件以数据流的形式存储用时再调出来2、将动态控件的属性存放在数据库、文件,程序从中读取控件属性。 if assigned(控件名如:image数组-->p_1[])then begin Name := PChar('img_1' + IntToStr(num));//sessionÃû Width := PChar(IntToStr(p_1[num].Width)); top := PChar(IntToStr(p_1[num].Top)); left := PChar(IntToStr(p_1[num].Left)); Height := PChar(IntToStr(p_1[num].Height)); tag := PChar(IntToStr(img_1[num].Tag)); hint := PChar(img_1[num].Hint); writeprivateprofilestring(Name, 'height', Height, path); writeprivateprofilestring(Name, 'width', Width, path); writeprivateprofilestring(Name, 'top', top, path); 。 end;下此用时 再读出来 关于delphi的if语句(有elseif吗) 三层结构的方法只能写procedure吗? 怎么样写Function ? 用ADO连接EXCEL的问题,帮帮忙 求:从一table向另一table插入语句! 初手请教 怎样实现一个小的语言编译器 BusinessSkinForm中的ButtonBare有没有Itemindex属性,如何确定点中的是哪一个Item? 谁有Delphi的电子书呀? 学习delphi网络编程的好书? 如何判断一个窗体是否被创建? 能不能用DBGrid模仿Excel 关于adoquery的疑问?
[C1]
...
[C2]
...
也可以用注册表
不过思路都是一样的
1、将控件以数据流的形式存储用时再调出来
2、将动态控件的属性存放在数据库、文件,程序从中读取控件属性。
if assigned(控件名如:image数组-->p_1[])then
begin
Name := PChar('img_1' + IntToStr(num));//sessionÃû
Width := PChar(IntToStr(p_1[num].Width));
top := PChar(IntToStr(p_1[num].Top));
left := PChar(IntToStr(p_1[num].Left));
Height := PChar(IntToStr(p_1[num].Height));
tag := PChar(IntToStr(img_1[num].Tag));
hint := PChar(img_1[num].Hint);
writeprivateprofilestring(Name, 'height', Height, path);
writeprivateprofilestring(Name, 'width', Width, path);
writeprivateprofilestring(Name, 'top', top, path);
。
end;
下此用时
再读出来