X xiaoxiami1 Unregistered / Unconfirmed GUEST, unregistred user! 2002-05-15 #1 初学activeform,只会建一个页，我想多几个页，怎么建，怎样通过点击按钮方式显示出来，在普通工程里是form2.show;就可以了，用activeform怎么实现呢？总不能只有一个页吧？(20分)<br />我用普通的分布式就可以多建几个窗体，难道我只能用普通的分布式？
初学activeform,只会建一个页，我想多几个页，怎么建，怎样通过点击按钮方式显示出来，在普通工程里是form2.show;就可以了，用activeform怎么实现呢？总不能只有一个页吧？(20分)<br />我用普通的分布式就可以多建几个窗体，难道我只能用普通的分布式？
吉 吉祥鸟 Unregistered / Unconfirmed GUEST, unregistred user! 2002-05-15 #2 除了主FORM是要ACTIVEX的以外，你可以建立多个其他的FORM 但是这些FORM你需要在主FORM创建的时候，你手工创建，或者在点击按钮的时候 创建，不可能在PROJECT中自动创建，就这么多了，你试试吧
除了主FORM是要ACTIVEX的以外，你可以建立多个其他的FORM 但是这些FORM你需要在主FORM创建的时候，你手工创建，或者在点击按钮的时候 创建，不可能在PROJECT中自动创建，就这么多了，你试试吧
X xiaoxiami1 Unregistered / Unconfirmed GUEST, unregistred user! 2002-05-17 #3 to 吉祥鸟： 我建了一个activeform后，又建了一个form1,在activeform上有一个按钮，按钮的点击代码是 form1.show;发送到主页后一切正常，点击按钮发生错误：access violation at address 049923f6 in module 'IEACTI~1.ocx',Read of address 000002ll.这是怎么回事啊？
to 吉祥鸟： 我建了一个activeform后，又建了一个form1,在activeform上有一个按钮，按钮的点击代码是 form1.show;发送到主页后一切正常，点击按钮发生错误：access violation at address 049923f6 in module 'IEACTI~1.ocx',Read of address 000002ll.这是怎么回事啊？
吉 吉祥鸟 Unregistered / Unconfirmed GUEST, unregistred user! 2002-05-17 #5 From1:=Tform1.create; Form1.show;
X xiaoxiami1 Unregistered / Unconfirmed GUEST, unregistred user! 2002-05-17 #6 to gzfrank: 这回点击按钮发生错误：access violation at address 063d23f6 in module 'IEACTI~1.ocx',Read of address 000002ll.这是怎么回事啊？
to gzfrank: 这回点击按钮发生错误：access violation at address 063d23f6 in module 'IEACTI~1.ocx',Read of address 000002ll.这是怎么回事啊？
X xiaoxiami1 Unregistered / Unconfirmed GUEST, unregistred user! 2002-05-17 #7 to 吉祥鸟: 我在 activeform上的按钮的事件这么写怎么不对啊？ procedure Tdefault.Button1Click(Sender: TObject); var form1:tform; begin Form1:=Tform1.create; Form1.Show; end;
to 吉祥鸟: 我在 activeform上的按钮的事件这么写怎么不对啊？ procedure Tdefault.Button1Click(Sender: TObject); var form1:tform; begin Form1:=Tform1.create; Form1.Show; end;
吉 吉祥鸟 Unregistered / Unconfirmed GUEST, unregistred user! 2002-05-17 #9 procedure Tdefault.Button1Click(Sender: TObject); var Tempform1:tform; begin TempForm1:=Tform1.create(Nil); TempForm1.Show; end; 这样就可以了,测试吧,给分吧
procedure Tdefault.Button1Click(Sender: TObject); var Tempform1:tform; begin TempForm1:=Tform1.create(Nil); TempForm1.Show; end; 这样就可以了,测试吧,给分吧
X xiaoxiami1 Unregistered / Unconfirmed GUEST, unregistred user! 2002-05-18 #10 谢谢吉祥鸟，果然可以弹出另一个窗体，如何弹出另一个网页呢？麻烦您了。
吉 吉祥鸟 Unregistered / Unconfirmed GUEST, unregistred user! 2002-05-18 #11 ShellExecute(0,'Open',PChar(WebUrl),'','',SW_Normal);
