窗体问题

Question

建一个公共过程例如
PROCEDURE MYSHOW(NOWFORM:TFORM)
BEGIN
     IF SUBFORM1.VISIBLE THEN
          SUBFORM1.CLOSE;
     IF SUBFORM2.VISIBLE THEN
          SUBFORM2.CLOSE;
     IF SUBFORM3.VISIBLE THEN
          SUBFORM3.CLOSE;
     IF SUBFORM4.VISIBLE THEN
          SUBFORM4.CLOSE;
     IF SUBFORM5.VISIBLE THEN
          SUBFORM5.CLOSE;
     NOWFORM.SHOW
END;
调用时MYSHOW(SUBFORM3);
这样就解决了.:)
我的问题还是没人回答,等了半小时了事:(  .......

Answer 1

var
  i: integer;
  form1: Tform1;
begin
  for i:=0 to Mainform.MDIChildcount-1 do
  begin
    MainForm.MDIChildRen[i].Close;
  end;
  //再创建你的窗体
  form1:= Tform1.Create(self);
  //do you want
end;