盒子论坛 v2.1

有父窗体上有几个按键，每一个对应一个子窗体。我想当按了某一个键时它对应的子窗体出来之后，在没有关这个子窗体之前再按那个键这个子窗体就是不再会生成一个新的。要是有几个子窗体时就是激活对应的窗体。请问应如何才能实现，谢谢了！！！
----------------------------------------------
愿和所有喜欢DELPHI的人做朋友！

作者：

cjrb (Thinking In 魂)	★☆☆☆☆	-
	盒子活跃会员

2003/4/16 10:01:23

1楼：

这个不知道算不算是，呵呵
panel1为Main_Win主窗体的一个面板
第一个按钮：
  CloseOtherWin(1,self);
  if First_Win=nil then
    Application.CreateForm(TFirst_Win, First_Win);
  First_Win.Parent:=panel1;
  First_Win.Left:=20;
  First_Win.Top:=5;
  First_Win.Width :=panel1.Width-40;
  First_Win.Height :=Panel1.Height-40; //800*600:515:
  First_Win.Show;
第二个按钮：
  CloseOtherWin(2,self);
  if Second_Win=nil then
    Application.CreateForm(TSecond_Win, Second_Win);
  Second_Win.Parent:=panel1;
  Second_Win.Left:=20;
  Second_Win.Top:=5;
  Second_Win.Width :=panel1.Width-40;
  Second_Win.Height :=Panel1.Height-40;
  Second_Win.Show;
-----
procedure TMain_Win.CloseOtherWin(i:integer;Sender:TObject);
begin
  if (i<>1) and (First_Win<>nil) then
  begin
    First_Win.close;
    First_Win:=nil;
  end;
  if (i<>2) and (Second_Win<>nil) then
  begin
    Second_Win.close;
    Second_Win:=nil;
  end;
end;
----------------------------------------------

充电..........

作者：

Another (Another)	★☆☆☆☆	-
	盒子活跃会员

2003/4/16 14:39:18

2楼：

如下：
1，主窗体中把各子窗体的单元文件加入。
2，选Project->Option->Form 选项卡，把那几个窗体都变成Available Forms
3，调用子窗体如下所示：
  if Frm1 = nil then
  begin
    Frm1 := TFrm1.Create(Application);
  end
  else
  begin
    Frm1.WindowState := wsNormal ;
    Frm1.BringToFront ;
  end ;
4，子窗体的关闭代码如下：
　Frm1.close ;
5，子窗体的FormClose 事件
  Action := caFree ;
  Frm := nil ;

//经过几上五步所有的子窗体问题都能得以解决！

Another Delphi Developer

ADD
----------------------------------------------

作者：

bbhorse (xinhua2008)	★☆☆☆☆	-
	盒子活跃会员

2003/4/16 20:10:41

3楼：

十分感谢你们的答复！
----------------------------------------------
愿和所有喜欢DELPHI的人做朋友！

信息

登陆以后才能回复