// 檢查是否已經開啟, 如已經開啟則關閉
for i:=0 to MainForm.MDIChildCount-1 do
begin
if copy((MainForm.MDIChildren[i].Name),0,5) = 'stock' then
MainForm.MDIChildren[i].close;
end;
showmessage(inttostr(MDIChildCount));
showmessage(inttostr(MDIChildCount));

以上我我寫的程式, 目的是檢查某一個 form 是否已經開啟, 如果已經開啟則關閉

但是我卻發現子 form 關掉後 count 沒有馬上減少

上面的第一行 showmessage(inttostr(MDIChildCount)); 所顯示的數值居然跟第二行的不一樣???

請問這是什麼原因啊!!!

是有可能的

牽涉到多執行緒與程式執行順序

你有興趣，可以去 trace 程式，MDI在 Close 的過程中，在哪裡跳出來執行第一行 showmessage


===================引 用 black_eagle1028 文 章===================
// 檢查是否已經開啟, 如已經開啟則關閉
for i:=0 to MainForm.MDIChildCount-1 do
begin
if copy((MainForm.MDIChildren[i].Name),0,5) = 'stock' then
MainForm.MDIChildren[i].close;
end;
showmessage(inttostr(MDIChildCount));
showmessage(inttostr(MDIChildCount));

以上我我寫的程式, 目的是檢查某一個 form是否已經開啟, 如果已經開啟則關閉

但是我卻發現子 form 關掉後 count 沒有馬上減少

上面的第一行showmessage(inttostr(MDIChildCount)); 所顯示的數值居然跟第二行的不一樣???

請問這是什麼原因啊!!!

那請問一下有什麼方法可以在close 子 form 後抓取到正確的 mdichildcount 數呢?以及剩下所有開啟的 form 的 name 呢?

因為我打算要寫一個可以切換所有已經開啟的 childf form 的 button , 但是一旦有 form close 後便會抓取錯誤

請問你用的 Delphi 版本是 ? (請參考 [公告] 發問及回答前注意事項 )
我記得 Delphi 5, 6 (後面還有那些版本不記得了 ...)有此問題, 要修改 menus.pas

===================引 用 black_eagle1028 文 章===================
那請問一下有什麼方法可以在close 子 form 後抓取到正確的 mdichildcount 數呢?以及剩下所有開啟的 form 的 name 呢?

因為我打算要寫一個可以切換所有已經開啟的 childf form 的 button , 但是一旦有 form close 後便會抓取錯誤

------
將問題盡快結案也是一種禮貌!

會不會是 MDIChild Close 後但未 Free, 所以 MDIChildCount 不會有所變化
解決方式, 在 MDIChild Form 的 OnClose Event 中, 將 Action 設為 caFree 試試

每個子 form close 都有設定 cafree 耶!

我使用的是 delphi 7.0 版!請問一下如果要修改 menu.pas 要改什麼啊!

這個我沒有仔細看, 不知道是不是你要的 ?
http://www.stevetrefethen.com/wiki/(S(h0nejp45lrm2ghrei1fdfk45))/Default.aspx?Page=Delphi7&AspxAutoDetectCookieSupport=1
===================引 用 black_eagle1028 文 章===================
我使用的是 delphi 7.0 版!請問一下如果要修改 menu.pas 要改什麼啊!

------
將問題盡快結案也是一種禮貌!

<textarea class="delphi" rows="10" cols="60" name="code">procedure TYourChildForm.FormClose(Sender: TObject; var Action: TCloseAction); begin Action := caFree; end; </textarea>
原來已經提過了,sorry, 剛才沒看仔細.

編輯記錄

這是很正常的現象，沒什麼好奇怪的。

第一次ShowMessage 的值，為尚未被釋放的數量。
由於呼叫Close 會拋出 PostMessage(Handle, CM_RELEASE, 0, 0);
知道 PostMessage 吧。
因此當Showmessage 空閒時，系統會收到 CM_RELEASE 去真正釋放。

所以第二次顯示 ShowMessage 的值，就會為正確的數量。

因此在ShowMessage 若加入 Application.ProcessMessages; 當然也會得到正確的值。

其實 showmessage 只是我用來檢查 MDIcount 的值而已

而主要的目的是希望子 form close 後可以立即讀取到目前所剩下所有的 MDIchild 的資料

因為我想要將所有已開啟的 MDIchild 的 name 抓出來

但是程式執行時只在關閉某一個 form 後所抓取道的資料仍是未關閉前的(也就是感覺似乎還沒有關閉完全)

有試著加一行 showmessage 讓它暫停一下便可以正確的讀取到我要的資料

所以, 請問要如何在關閉 from 立即抓取剩下的 MDIchild 的正確資料呢????

  for i:=MDIChildCount-1  Downto 0 do
begin
if copy((MainForm.MDIChildren[i].Name),0,5) = 'stock' then MDIChildren[i].Free;
end;
Showmessage(inttostr(MDIChildCount));

===================引 用 black_eagle1028 文 章===================
其實 showmessage 只是我用來檢查 MDIcount 的值而已

而主要的目的是希望子 form close 後可以立即讀取到目前所剩下所有的 MDIchild 的資料

因為我想要將所有已開啟的 MDIchild 的 name 抓出來

但是程式執行時只在關閉某一個 form 後所抓取道的資料仍是未關閉前的(也就是感覺似乎還沒有關閉完全)

有試著加一行 showmessage 讓它暫停一下便可以正確的讀取到我要的資料

所以, 請問要如何在關閉 from 立即抓取剩下的 MDIchild 的正確資料呢????

編輯記錄