delphi对于form的初始化，oncreate很好，但是有些初始化需要在其它form的create之后进行的，你不知道这个form.oncreate时，其它form一定也已经建…… <- 中国开发网

CNDEV.ORG

当前在线

论坛

CBD
- 程序员情感CBD
- 程序员见面交流会
CBD开发区
- Java/J2ME
- .NET/C#
- 数据库
- Delphi/BCB
- Visual C
其它
情感
游戏
- CNDEV-CS/WOW
- 浩宇长空
生活
论坛系统

haitao：

delphi对于form的初始化，oncreate很好，但是有些初始化需要在其它form的create之后进行的，你不知道这个form.oncreate时，其它form一定也已经建……

[阅读: 1698] 2006-05-18 05:57:53

delphi对于form的初始化，oncreate很好，但是有些初始化需要在其它form的create之后进行的，你不知道这个form.oncreate时，其它form一定也已经建好了
所以，还需要一个初始化的时机，很多人使用onshow
我从来不敢用onshow，而是用onactive＋一个全局boolean来标志是不是第一次onactive
不知道有没有更好、更正规的做法

我的blog：http://szhaitao.blog.hexun.com & http://www.hoolee.com/user/haitao

－－以上均为泛泛之谈－－不尽牛人滚滚来，无边硬伤纷纷现人在江湖飘（出来混的），哪能不挨刀（总归是要还的）
网络对话，歧义纷生；你以为明白了对方的话，其实呢？

您所在的IP暂时不能使用低版本的QQ，请到：http://im.qq.com/下载安装最新版的QQ，感谢您对QQ的支持和使用

相关信息:

技术帖 (273字) (ysb_ysb_ysb [612] 2006-05-18 10:31)
- 你的窗体是动态创建的吗？是不是已经创建了这个窗体的实例，你又创建了一个？ (9字) (龙之吻 [599] 2006-05-18 10:34)
  - 没有,我主窗体只有一个,在options中将子窗体全部移过去了 (空) (ysb_ysb_ysb [571] 2006-05-18 10:36)
- 你看一下TFrmPkSet的构造函数里有没有分配内存的操作 (空) (玉楼 [421] 2006-05-18 10:36)
- 全部代码如下:各位帮忙看看，谢谢! (48718字) (ysb_ysb_ysb [1288] 2006-05-18 10:49)
  - 帮你UP吧 (6字) (nostalgic [469] 2006-05-18 10:55)
  - 在我的机子上没有出现你说的情况 (空) (UnKnow365 [384] 2006-05-18 11:04)
    - 感谢你的指点! (37字) (ysb_ysb_ysb [496] 2006-05-18 11:14)
      - 如果一最小化,内存就释放到正常了 (65字) (haitao [613] 2006-05-18 11:16)
        恩,这个也是个好方法 (40字) (ysb_ysb_ysb [466] 2006-05-18 12:26)
        对于刚接触Delphi的人也许算个方法 (9字) (GoodHope [426] 2006-05-18 13:06)
      - 最小化内存释放是Window把应用占用的物理内存标记为可交换出去。 (80字) (GoodHope [933] 2006-05-18 11:34)
        他说的最小化是指：最小化一下，再还原回来吧 (30字) (haitao [752] 2006-05-18 11:42)
        又想当然了吧！ (16字) (GoodHope [497] 2006-05-18 12:56)
        又想当然了吧！ (19字) (haitao [512] 2006-05-18 13:06)
        可惜，你这次错得相当的离谱！ (空) (GoodHope [373] 2006-05-18 13:07)
        那也只说明你的系统或观察上的问题了。。。。 (80字) (haitao [465] 2006-05-18 13:11)
        嘿嘿，所以就是“那应该是delphi的内存管理机制决定的”么 (123字) (GoodHope [629] 2006-05-18 13:19)
        我说的delphi的内存管理机制是指：代码执行了free，内存并不一定立即释放回系统 (143字) (haitao [1159] 2006-05-18 13:23)
        Delphi的内存管理是建立了缓冲，但这显然不是应用最小化就导致物理内存骤降的原因。 (122字) (GoodHope [815] 2006-05-18 13:29)
        我最初就说ysb的内存降低应该是指“最小化，再恢复”，而不是“最小化” (156字) (haitao [556] 2006-05-18 13:48)
        可惜，你这次错得相当的离谱！ (空) (GoodHope [3] 今天 13:07) (空) (GoodHope [416] 2006-05-18 13:50)
        光说别人错、错的离谱、初学，有什么意义呢？ (11字) (haitao [728] 2006-05-18 13:53)
        你要是把提醒当讥笑，那就算偶是傻瓜吧。 (38字) (GoodHope [443] 2006-05-18 13:55)
        我觉得你没分清楚 (62字) (haitao [500] 2006-05-18 14:01)
        什么叫众所周知的，至少你还没弄明白。 (18字) (GoodHope [442] 2006-05-18 14:05)
        问题的焦点不在这里（20M->xxxK），这是系统决定的；而在于下面ysb说的4M->20M->xxxK->4M (326字) (haitao [637] 2006-05-18 14:14)
        我觉得你这个解释很合理,我搜寻了一下,基本上都是说delphi的内存管理机制决定的 (空) (ysb_ysb_ysb [525] 2006-05-18 14:18)
        20M->4M的原因见下面分析，典型的内存泄漏的反应啊 (空) (GoodHope [544] 2006-05-18 14:19)
        恩,开始的时候，我程序占4千都K,但是运行后就占到20多千K了，关闭窗体,还是这么多，最小化,变成几百K,在恢复,又到4千多K,基本上这样变化 (空) (ysb_ysb_ysb [471] 2006-05-18 14:04)
        所以需要把界面和业务分离，你现在的代码全放在一起了 (空) (阿善 [471] 2006-05-18 14:12)
        恩，是的,现在这个东西要的很急,也没有时间做好的设计,只能按平时的风格快速出成果,2天内完了排课 (597字) (ysb_ysb_ysb [574] 2006-05-18 14:16)
        原因很简单 (154字) (GoodHope [558] 2006-05-18 14:12)
        我们对事情的假设不同 (148字) (haitao [584] 2006-05-18 14:19)
        不可能做出你的假设，释放了16M内存，肯定看的出来！ (49字) (GoodHope [571] 2006-05-18 14:24)
        恩，是这样的,我只有加了一个定时器,每个5秒清楚内存一次! (21字) (ysb_ysb_ysb [609] 2006-05-18 14:20)
        你在任务管理器多显示虚拟内存这一列 (58字) (haitao [1170] 2006-05-18 14:32)
        是这样的,我动手测试过的 (空) (ysb_ysb_ysb [456] 2006-05-18 14:01)
        又一个对“众所周知的windows机制”不了解的 (空) (GoodHope [413] 2006-05-18 14:13)
    - 你没有pas对应的form文件，怎么编译运行啊？？ (空) (haitao [483] 2006-05-18 11:18)
  - 这是谁写的代码？ (121字) (GoodHope [560] 2006-05-18 13:04)
    - 还是要按这个改代码，看了代码确实存在猴子说的问题，不过SHOW里没看到有创建东西 (空) (阿善 [524] 2006-05-18 13:43)
    - delphi对于form的初始化，oncreate很好，但是有些初始化需要在其它form的create之后进行的，你不知道这个form.oncreate时，其它form一定也已经建…… (192字) (haitao [1697] 2006-05-18 13:57)
      - 在onactive中有些问题的,我原来写程序的时候，一直用onactive,主要是读数据的时候,窗体出来了，数据没有过来，界面显示不好看,用onshow没有这个问题，呵呵 (空) (ysb_ysb_ysb [781] 2006-05-18 14:07)
        如果这样不要急于显示窗体，如果等待时间太长，应该做一个进程窗口。 (空) (GoodHope [536] 2006-05-18 14:21)
        唉，叫JoJo给弄个Flash不要好看点 (空) (lukejee [469] 2006-05-18 14:24)
        我觉得应用在数据未准备好时，也应该显示form (74字) (haitao [501] 2006-05-18 14:21)
        我也感觉这样直观一些，GH的显示进度窗口不够直观 (空) (leejd [499] 2006-05-18 14:36)
      - 用OnActive还不如用OnShow呢。 (空) (GoodHope [509] 2006-05-18 14:09)
- 刚才测试了一下程序，所有的窗体都有这个问题，只不过其他窗体内存浮动比较小,没有发现而已 (空) (ysb_ysb_ysb [526] 2006-05-18 11:41)
- 试一下你单纯测试窗体，不要和后台的数据库关联，看看是否还是内存不停涨。 (空) (pcplayer [571] 2006-05-18 11:51)
  - 测试了一下,不涨! (42字) (ysb_ysb_ysb [472] 2006-05-18 12:18)
- 问题可能在于FreeAndNill，你看看它的实现代码吧。 (空) (sql [475] 2006-05-18 12:40)
  - 我觉得也有可能，FreeAndNill不一定会去调用Form的Close过程 (15字) (JoJo [514] 2006-05-18 12:48)
    - 嘿嘿，Free也不调Close过程啊。 (19字) (GoodHope [535] 2006-05-18 12:59)
      - 早忘光了Delphi的From管理机制 (7字) (JoJo [509] 2006-05-18 13:01)
        Y说的都是证据！ (空) (GoodHope [378] 2006-05-18 13:05)
  - FreeAndNil和他注释掉的两行代码完成一样的功能 (39字) (GoodHope [520] 2006-05-18 12:58)

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

页面内容处理时间: 0.010 - 604136