代碼如下： if not assigned(frm02) then begin application.CreateForm(tfrm02,frm02); frm02.show; exit; end else frm02.Show; end; 請多多指教!

引言: 代碼如下： if not assigned(frm02) then 請問這行是在做什麼呀? begin application.CreateForm(tfrm02,frm02); frm02.show; exit; end else frm02.Show; end; 請多多指教!

You should set frm02 to nil after freeing it, otherwise Assigned(frm02) will be True. So you should not relay on setting Action := caFree in the OnClose event of tfrm02. Maybe you can try to send a message from frm02 to the main form when it closes to tell the main form to set frm02 to nil?

Oh~~ forget about the topics title. Since your application is a MDI application, you may want to take a look at MDIChildCount and MDIChildren properties. 

Hello longjibo: 請在frm02的OnClose事件加上 Action := caFree; frm02 := nil 這樣應該沒問題 我不是高手, 高手是正在銀幕前微笑的人.

------


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

已更正此問題： //if not assigned(frm02) then if frm02<>nil then begin application.CreateForm(tfrm02,frm02); frm02.show; exit; end else frm02.Show; end;    而在frm02的CLOSE事件中 ca:=free; frm02:=nil;    就可以重復打開關閉frm02了。 謝謝各位先進關注!