又改了改，TMyPanel的GetChildren改为不做判断，保存任何控件，这样可以支持多级包含，可用性强一些了 <- 中国开发网

账号

中国开发网: 论坛: 程序员情感CBD: 贴子 86273

王中王 · 2005-01-23 17:56:36 · 阅读: 848

又改了改，TMyPanel的GetChildren改为不做判断，保存任何控件，这样可以支持多级包含，可用性强一些了

每次Load时Free掉原对象重新创建，以避免名称冲突

相关信息:

有方便的方法把一个TPanel对象进行Serialize嘛？包括Panel上的子对象 (1321字) (王中王 [852] 2005-01-23 20:42)
- 肯定可以的，让俺看看source再回答你 (空) (李颖 [605] 2005-01-23 20:44)
  - 俺也翻了翻，光在TWriter那没绕太明白，是不是其它单元里还有关于serialize的内容？ (5字) (王中王 [689] 2005-01-23 20:52)
    - 俺老人家玩Dream的时代，把Delphi RTTI，Form装载，事件装配，组件之间的引用，全都看的清清楚楚明明白白 (19字) (李颖 [767] 2005-01-23 20:56)
      - 我老人家当年为了支持多语言动态切换，把组件写到文件再把文件读回来恢复组件也干过，现在忘记光了。不过我没找到DELPHI的BUG。 (空) (pcplayer [670] 2005-01-23 21:00)
        没必要重新生成组件呀 (57字) (李颖 [620] 2005-01-23 21:06)
        当时只是想从技术上试一把保存整个组件。现在我自己的多语言方案就只是从INI里把文本读回来替换文本属性了。 (空) (pcplayer [629] 2005-01-23 21:15)
        我说的Bug包括 (431字) (李颖 [635] 2005-01-23 21:11)
        不按名字来引用，还能按什么呢？ (6字) (王中王 [576] 2005-01-23 21:15)
        是啊，但是确实因为这个原因造成了Bug (122字) (李颖 [656] 2005-01-23 21:18)
        你说的这个不该算BUG吧？应该是重名了，名称空间的问题。DELPHI的名称空间现在看来不够完整嘛。我碰到过真正的BUG (105字) (pcplayer [673] 2005-01-23 21:19)
        严格是说，我说的那些不能算Delphi自己的错 (44字) (李颖 [610] 2005-01-23 21:22)
        听起来跟我说的那个差不多嘛，也许就是差不多的原因呢 (空) (李颖 [563] 2005-01-23 21:23)
        肯定不是重名的原因。取名字的时候，俺非常小心的。而且，我也没做过什么有几百个单元的系统。我做的都是小玩意。 (空) (pcplayer [597] 2005-01-23 21:24)
        我不是说你重名，我是说跨单元查找对象失败了，背后的原因就不知道了，你又没把环境保存下来 (31字) (李颖 [654] 2005-01-23 21:26)
  - 看代码 (1536字) (李颖 [755] 2005-01-23 20:55)
    - 如果可能的话，尽量利用Delphi自己的机能，比较安全 (111字) (李颖 [661] 2005-01-23 21:04)
    - 好，一会试试。不过那些组件肯定没有引用到Panel外的东西， (134字) (王中王 [653] 2005-01-23 21:11)
      - 不知道，要现场调试 (空) (李颖 [504] 2005-01-23 21:11)
      - 你可以先Trace一下，看看最初的方法失败，是不是我那个说的原因 (空) (李颖 [549] 2005-01-23 21:12)
      - 你可以先Trace一下，看看最初的方法失败，是不是我说的那个原因 (空) (李颖 [585] 2005-01-23 21:12)
    - 用你的方法试了一下，保存和加载都可以了，但还有两个问题： (117字) (王中王 [635] 2005-01-24 01:46)
      - Class找不到的问题，你跟踪一下Delphi自己加载窗体的时候的代码 (36字) (李颖 [763] 2005-01-24 01:55)
        名称冲突就是： (283字) (王中王 [728] 2005-01-24 02:02)
        断点打到FindClass处，应该很快就看出来了 (空) (李颖 [671] 2005-01-24 02:13)
        玩一下Delphi的底层还是很有好处的 (30字) (李颖 [924] 2005-01-24 02:13)
      - 又改了改，TMyPanel的GetChildren改为不做判断，保存任何控件，这样可以支持多级包含，可用性强一些了 (27字) (王中王 [847] 2005-01-24 01:56)
        多级包含没戏 (58字) (李颖 [604] 2005-01-24 01:59)
        是啊，只能全用这一种Panel。还有事件没有恢复，是不是在这一层外要单独再做一些工作？ (空) (王中王 [697] 2005-01-24 02:06)
        事件啊，没戏 (117字) (李颖 [619] 2005-01-24 02:12)
        是保存的时候就没有保存事件 (空) (王中王 [599] 2005-01-24 11:10)
        我现在没有环境看不了，你看看保存事件的代码，估计跟我上面说的是同一个原因 (空) (李颖 [621] 2005-01-24 11:24)
        是没保存，这个问题不好解决： (658字) (王中王 [631] 2005-01-24 11:40)
        是啊，跟我说的原因一样亚 (空) (李颖 [597] 2005-01-24 12:14)

欢迎光临本社区，您还没有登录，不能发贴子。请在这里登录

页面内容处理时间: 0.023 - 535088