我想建立一个除自身外其它所有窗体均处於失效状应的窗体(即用showmodal显示时那样）。但窗体建立后，在某些时候只会hide了它而不会把它关掉。请问怎样可以在hide时使其它窗体可以回复正常工作状态，而在show时又变成modal?

要該 form 出現時, 使用 showmodal, 若是使用 hide 的話, showmodal 的狀態其實還沒有解除, 會造成什麼動作也都不能操作, 所以還是得使用其他的方法, 弟試了一下可以使用 close 方法, 不要 free 掉就可以了, 如此一來就可以將 showmodal 狀態解除, 其他的 form 也都可以進行操作, 要該 form 出現時, 就再使用一次 showmodal 即可! 以下為測試的程式片斷:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if not Assigned(form2) then
    form2 := TForm2.Create(self);
  form2.ShowModal;
end;
//
//
procedure TForm2.Button1Click(Sender: TObject);
begin
  form2.Close; // 使用 close 而不 free
end;