Show 與 ShowModal 區別

    最近遇到了問題，就是在form關閉時，需要判斷一下是以哪種方式開啟的然後分別處理，所已就看了一下ShowModal方法的源碼，我截取了一段核心的

    Show;    try      SendMessage(Handle, CM_ACTIVATE, 0, 0);      ModalResult := 0;      repeat        Application.HandleMessage;        if Application.FTerminate then ModalResult := mrCancel else          if ModalResult <> 0 then CloseModal;      until ModalResult <> 0;      Result := ModalResult;      SendMessage(Handle, CM_DEACTIVATE, 0, 0);      if GetActiveWindow <> Handle then ActiveWindow := 0;    finally      Hide;    end;

大家一看就會明白，它也是先調用Show方法， 然後對他發送CM_ACTIVATE 訊息，使當前表單為活動表單

關鍵是下面那個迴圈，這個迴圈導致你只有關閉了該視窗之後，才能操作其他之前開啟的視窗。

關於判斷開啟的方式，可以用 Form1.FormState這個屬性，這是個集合屬性，如果Form是以ShowModal開啟的，那邊fsModal一定在集合中，所以

代碼應該是 

if fsModal in self.FormState then     ShowMessage('I am opened by ShowModal method')   else     ShowMessage('I am opened by Show method');

能力有限，分析至此。