请高手再帮我看看那个问题。实在令我困惑。

Question

http://expert.csdn.net/Expert/topic/1997/1997658.xml?temp=.5669824
谢谢。

Answer 1

如果是ServerSetForm的FormStyle属性为fsMDIChild则不能使用ServerSetForm.ShowModal，
而必须使用ServerSetForm.Show！
procedure TMainForm.N5Click(Sender: TObject);
begin
  if ServerSetForm = nil then
    ServerSetForm := TServerSetForm.Create(Self)
  else ServerSetForm.Show;
end;如果ServerSetForm的FormStyle属性为fsNormal，那么试试下面的方法。procedure TMainForm.N5Click(Sender: TObject);
begin
  if ServerSetForm = nil then
  begin
    ServerSetForm := TServerSetForm.Create(Self);
    ServerSetForm.ShowModal;
  end else ServerSetForm.ShowModal;
end;最好在ServerSetForm的OnClose事件中写入如下代码：
procedure TServerSetForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
  ServerSetForm := nil;
end;