Function FormExists(FORM_NAME:String):Boolean; begin if Application.FindComponent(FORM_NAME)=nil then    result := False else    result := True; end;    Function Form_NORMAL_SHOW(T_Form:TForm;X,Y:Integer):BOOLEAN; begin with T_Form as TForm do begin      WINDOWSTATE:=wsNormal;      POSITION:=poScreenCenter;      FORMSTYLE:=FSNORMAL;      if X >= 0 then         LEFT := X;      if Y >=0 then         TOP := Y;      Show;      Result := True; end; end;        procedure TForm1.Menu1_Click(Sender: TObject); begin Form1:=TForm1.Create(Self); Form1.ShowModal; Form1.Free; end;    procedure TForm1.Menu2_Click(Sender: TObject); begin if FormExists('Form1')= False then    Application.CreateForm(TForm1,Form1);    Form_Normal_Show(Form1,-1,-1); end;    執行 menu1 -> menu2 或 men2 -> menu1 會出現錯誤訊息

[quote] Function FormExists(FORM_NAME:String):Boolean; begin if Application.FindComponent(FORM_NAME)=nil then result := False else result := True; end; Function Form_NORMAL_SHOW(T_Form:TForm;X,Y:Integer):BOOLEAN; begin with T_Form as TForm do begin WINDOWSTATE:=wsNormal; POSITION:=poScreenCenter; FORMSTYLE:=FSNORMAL; if X >= 0 then LEFT := X; if Y >=0 then TOP := Y; // 我測過 rum menu1 後在run menu2 之後 Show 此行會出錯 Show; // 可是我不知如何解決,等待支援 Result := True; end; end;

很明顯為錯誤的使用Form1指針及可能在遞迴事件(Event)時發生錯誤。 導致 Form1 指針位置重複錯誤，當釋放第二次救.. 觀看程式碼有許多混淆不清之處。 建議寫的讓架構清楚一些。 ～～～～～～～～～～～ 難得聰明，常常糊塗。 ～～～～～～～～～～～

wameng 版主 不好意思造成困擾 我已將程式上傳 會員求助程式檔案上傳區 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=81518 謝謝