请教两个小问题;(50分)

逆水

Unregistered / Unconfirmed
GUEST, unregistred user!
1: 现有两个窗口,一个是主窗口FROM1,一个是子窗口RROM2,如何实现打开FROM2时,只
显示FROM2,关闭FROM2时,FROM1出现。
下面这段程序好象不行:
procedure TFORM1.N6Click(Sender: TObject);
begin
//创建窗体
Application.CreateForm(TForm2, Form2);
//显示窗体
Form2.ShoW;
//隐藏窗口1;
form1.visible:=false;
form2.click1
begin
form1.visible:=true;
form2.close;
end;
当我点击,FROM1的N6后,整个窗口都不见了,FROM2也没见出来;为什么呢。
2。在一个窗口中,BUTTON1 有ONCHANE事件,就是点击BUTTON1时,可以同时响应其它按键。
那在不同的窗口中的两个BUTTON可不可以也用ONCHANE来响应呢。
如何做的,请那位老兄帮我讲讲。谢谢。
 
form1.n6click
begin
form2:=TForm2.Create(Application);
Form2.ShowModal;
Form1.visible:=False;
end;

form2.buttonclick;
begin
form2.close;
form1.Visible:=true;
 
对于第二个问题,可以用button1.click, button2.click来做。
 
to :hbezwwl
不对,我用的是MDI,不可以用SHOWMODAL;
可是只用SHOW的话,情况依旧;
对于第二个问题,SUMAN老兄,你的意思是:
procedure TForm2.Button1Click(Sender: TObject);
TFORM1。BUTTON1CLICK;吗?
 
to 逆水:
//nod
对MDI来说,如果主窗口不见了,子窗口也会不见。
在这里,Form1是主窗口(父窗口),form2是子窗口.
 
在form1窗口中,如果用一个button1
button1.click
form1.hide;
form2.show;
end;
在form2窗口中,用一个button2
button2.click
form1.show;
form2.hide;
在form2的close 事件中
加上
form2.hide;
form1.show;
应该就可以了,我在自己的机子上试过了,
 
通过我验证,看来不能用MDI,否则无法
button1.click
form1.hide;
form2.show;
end;
在form2窗口中,用一个button2
button2.click
form1.show;
form2.hide;
在form2的close 事件中
加上
form2.hide;
form1.show;
可是,第二个问题呢。大家还有没好的方法呀,就要给分了。
 
第二个问题:
用ACTIONLIST可以实现
 
具体点呢。还是不会呀。
 
双击actionlist可以编辑你所有已编过的过程,
需要用那个调用一下就可以了,
你可以去看看帮助,用actionlist很方便
可以减少编码的麻烦[:)]
 
多人接受答案了。
 
顶部