如何在主窗体显示之后再在主窗体前显示一个窗体？

如题 问题点数：50、回复次数：18Top

1 楼40Star（斯文、大方、有前途）回复于 2002-02-04 14:29:49 得分 15

再第一个窗体的onactivate中Show第二个Top

2 楼bear_c（）回复于 2002-02-04 14:33:27 得分 0

40Star(陪你去看--☆流星雨★)　：试了一下，不行啊Top

3 楼kylincn（笨笨）回复于 2002-02-04 14:33:57 得分 5

说详细点，如果要让后来的窗体始终显示在前面就要用API，好像是SetWindowPos,参数也不复杂，有HWND_TOP和HWND_TOPMOST，你试试再说。Top

4 楼bear_c（）回复于 2002-02-04 14:33:59 得分 0

第一个窗体没有完全显示出来！Top

5 楼bear_c（）回复于 2002-02-04 14:39:16 得分 0

举个例子说，就是类似登录对话框，但是是在主窗体显示之后再出现的。Top

6 楼genphone_ru（哎，什么都要学，真累）回复于 2002-02-04 14:42:43 得分 20

在主窗口的Create事件中创建，然后把Form2.ShowModal;Top

7 楼bear_c（）回复于 2002-02-04 14:53:41 得分 0

genphone_ru(票票)：不行吧？这样主窗口还会显示吗？Top

8 楼genphone_ru（哎，什么都要学，真累）回复于 2002-02-04 15:01:06 得分 0

在Form1的Active事件中就可以了！Top

9 楼genphone_ru（哎，什么都要学，真累）回复于 2002-02-04 15:01:41 得分 0

procedure   TForm1.FormActivate(Sender:   TObject);  
  begin  
      if   Form2   =   nil   then  
          Form2   :=   TForm2.Create(Application);  
      Form2.ShowModal;  
  end;Top

10 楼40Star（斯文、大方、有前途）回复于 2002-02-04 15:04:27 得分 0

不就是我说的！Top

11 楼ppwsid30（稳如泰山，坚如磐石）回复于 2002-02-04 15:07:23 得分 10

和主窗体一同显示，在option中和form1放在一起，若form1调用失败则form2也free。Top

12 楼bear_c（）回复于 2002-02-04 15:07:52 得分 0

我自己搞定了，用了一个Timer。主窗口显示的时候Enable。Top

13 楼bear_c（）回复于 2002-02-04 15:11:19 得分 0

如果用activate事件，主窗体没有完全显示，第二个窗体又出来了Top

14 楼ppwsid30（稳如泰山，坚如磐石）回复于 2002-02-04 15:11:42 得分 0

然后就象上面说的一样show就行了Top

15 楼bear_c（）回复于 2002-02-04 15:12:09 得分 0

用activate事件不好，得到焦点的时候就会触发了。Top

16 楼genphone_ru（哎，什么都要学，真累）回复于 2002-02-04 15:14:01 得分 0

可以在主Form上放一个Timer，在Timer的OnTime事件中写啊！Top

17 楼XQfish（龙猪）回复于 2002-02-04 15:16:49 得分 0

哦,完了?!Top

18 楼bear_c（）回复于 2002-02-04 15:17:54 得分 0

给分了Top

相关问题

• 窗体
• 主
• 显示
• 事件
• timer
• activate
• form

• 帖主：bear_c
• 40Star
• kylincn
• genphone_ru
• ppwsid30

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载