我有一個應該是簡單的問題吧,可是我一直做不出來所以就上來問問大家 我的MDI Application project 中有三個Form Form1, Form2, Form3 : Form style : Normal Form1: 有2個button : Next, cancel Form2: 有3個button : Back, next, cancel 當使用者在form1按Next時,form1會 hide,form2.show; 當使用者在form2按Back時,form2會close,form1.show; 當使用者在form1按Cancel時,form2會close, form1.close; ----這個地方出現問題,當我按Cancel時會出現"Stack overflow" error message. 請問這是什麼原因啊?

我猜你應該在Form1.OnHide事件有寫程式如Form2.Close ，然後在form2.OnClose又有Form1.Hide造成遞回呼叫巴 要找出問題請在事件里設中斷點，即可看出遞回呼叫成因 混心雜欲 棄修身~唉

------
唉~

是的,我有在Form1.OnHide時,執行Form2.close, Form1.Close (是在使用者在form2上按Cancel時) 這樣的話我要怎樣close form1, form2 當使用者按Form2 cancel呢?

mmmm...... 做法很多啦,最主要還是要看你的目的啦 幫你想一個 1.你把所有控制全部寫在OnClick裡面,不要寫在OnHide,OnClose 2.如果你有用TBitBtn請把Kind設成bkCustom(可避免按Cancel/OK自動觸發本身Close) 這這作之後你自行在OnClick事件理下達hide /Close應該可以達到妳的目的 再不行的話就要加一些Global變數來控制 混心雜欲 棄修身~唉

------
唉~

Hi selina您好: 小弟猜想你的錯誤應該是Form被Close後但並未重新建立便又直接Show出來,譬如Form2已經Close了,但你又直接下Form2.Show之類的, 我的做法會將這些Form都動態建立起來並使用ShowModal的方式開啟 以下程式參考

MainForm    procedure TMainForm.ToolButton12Click(Sender: TObject);
begin
   form1 := TForm1.Create(Self);
   try
      form1.ShowModal;
   finally
      form1.Free;
      form1 := nil;
   end;
end;    ***********************
Form1 Next
procedure TForm1.Button1Click(Sender: TObject);
begin
   form2 := TForm2.Create(Self);
   form1.Hide;
   try
      form2.ShowModal;
   finally
      form2.Free;
      form2 := nil;
   end;
   form1.Show;
end;    Form1 Cancel
procedure TForm1.Button2Click(Sender: TObject);
begin
   Close;
end;
**************
Form2 Back    procedure TForm2.Button1Click(Sender: TObject);
begin
   Close;
end;

發表人 - miles 於 2003/12/05 14:55:55

------


我不是高手, 高手是正在銀幕前微笑的人.

提問者您好:


以上回應是否已得到滿意的答覆？


若已得到滿意的答覆，請在一週內結案，否則請在一週內回覆還有什麼未盡事宜，不然，
將由版主(尚無版主之區域將由副站長或站長)採自由心證,選擇較合適之解答予以結案處理，
被選上之答題者同樣會有加分獎勵，同時發問者將受到扣 1 分的處分。不便之處，請見諒。


有問有答有結案，才能有良性的互動，良好的討論環境需要大家共同維護，感謝您的配合。

------
我是機器人,我不接受簡訊.