各位大大： 小弟以前的程式是在form上place button,并在button中使用相对应功能的form.show;来完成，但我现在想不使用button,用menu,并使用mdi的形式来完成各相关功能form.show;但却会出错，并且会起动后一下show 所有的mdi form，虽然我可以用action:=cafree;来close,但重新show该form该如何写？ 万分感谢！

您好： 那是因為您在程式一開啟時就將所有表單create所以一開起所有的mdi form都會秀出來，妳只要在project==> options==>auto-create form將所有的mdi form都移至available form程式開啟時mdi form就不會出現了 等妳要秀mdi form時在使用 Form2:= TForm2.Create(self); Form2.Show; 這樣就可以了 ~~應無所住而生其心~~

MDI多文檔窗口例程 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=44183 永遠的DELPHI

------
永遠的DELPHI

引言: 您好： 那是因為您在程式一開啟時就將所有表單create所以一開起所有的mdi form都會秀出來，妳只要在project==> options==>auto-create form將所有的mdi form都移至available form程式開啟時mdi form就不會出現了 等妳要秀mdi form時在使用 Form2:= TForm2.Create(self); Form2.Show; 這樣就可以了 ~~應無所住而生其心~~

terrychen大大： 我用了您的方法，很好用，非常感谢您的指教，只是不好意思，我还想问一下，当我每按一下"form2.show"这个menu时，就会反复show出多个form2,请问有何办法可以只秀出一个form2(当然，使menu的enable:=false是一个方法，但另外有方法吗)? 同时感谢hanlg大大的回应！ Thank you very much! 發表人 - luowy651 於 2004/02/02 09:21:12

您好：  

 
  if form2 = nil then
  begin
    Form2:=TForm2.create(self);
    Form2.Show;
  end;

~~應無所住而生其心~~ 發表人 - Terrychen 於 2004/02/02 10:37:36

Terrychen大大： 感激不尽！

Terrychen大大： 感激不尽！不过我又遇到一个问题，就是一旦把form2用action:=cafree;后，就不能再重show出form2了？ 我是在form2的onclose中加了action:=cafree;来完成的，不过我发现这句code不能用在button中，请问该如何解决？

您好：  

 
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  action:=cafree;
end;    procedure TForm2.Button1Click(Sender: TObject);
begin
  close;
end;

~~應無所住而生其心~~

您好： 我试了一下，发现最好在action:=cafree；前加上一句：form2:=nil; 我发现在mdi中不能显示图片。 另外我想问一下，不知有没有方法最多只能打开两个mdi的form Thank you very much! 發表人 - luowy651 於 2004/02/02 16:21:48

procedure OpenForm(FormClass: TFormClass; var fm; AOwner:TComponent);
var
  i: integer;
  Child:TForm;
begin
  for i := 0 to Screen.FormCount -1 do  begin
    if Screen.Forms[i].ClassType = FormClass then begin
        Child:=Screen.Forms[i];
        if Child.WindowState=wsMinimized then
           ShowWindow(Child.handle,SW_SHOWNORMAL)
        else
           ShowWindow(Child.handle,SW_SHOWNA);
        if (not Child.Visible) then Child.Visible:=True;
        Child.BringToFront;
        Child.Setfocus;
        TForm(fm):=Child;
        exit;
    end;
  end;
  Child:=TForm(FormClass.NewInstance);
  TForm(fm):=Child;
  Child.Create(AOwner);
end;

hahalin 大大你好 你這段程式很眼熟 如像多人前某一個 delphi open source 裡的一段程式 默非你就是那個作者

------
Thomas Chiou