Delphi 消息機制引入的一個副作用

  Delphi 在處理進程的消息時引入了一個隱藏的窗體Application ,借此進行消息的分發。這樣的機制優美的處理了消息的分發和處置的問題。但是最近我發現這個機制也引入了一個副作用,會在某些情況下影響程序的界面交互行爲。
  我遇到的需求是需要在程序中實現單個實例,並且在第二個實例被啓動的時候,首先將前一個實例置到最前,然後退出。按說這樣的問題應該是比較典型的例子,但是這樣的一個簡單需求就受到了這個副作用的影響。
  我的實現方式是這樣的:第二個實例啓動的時候,對前一實例發一個消息,要求它將自己置前,然後退出。至于前一個實例的句柄怎麽取得,可以用FindWindows ,也可以用命名的FileMapping ,總之,第一個窗體就這樣接到了將自己置前的命令。
  怎麽將這個窗體置到最前呢?衆所周知,SetForegroundWindow 並不能真正將一個窗體置到最前,相反的,爲了禮貌起見,它會讓這個指定的窗體在任務欄裏面閃動,吸引用戶注意,但是它不會把這個窗體蓋在Z-Order 的頂端。很有教養,但是我不喜歡,因爲這不是我想要的。
  于是我使用了這樣一個方法將我要的窗體直接置到最前面:
   SetWindowPos(hForm, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE);
   SetWindowPos(hForm, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE);
  強行把窗體拖到Z-Order 的頂端,然後去掉它的TOPMOST 屬性,這樣就可以了。有點不夠禮貌,不過要是禮貌有用的話,要警察做什麽?
  好了,前面說的內容似乎和我們的標題沒太多關系,可是後面的麻煩都根源在這裏。
  我發現,當第一個實例被最小化時,第二個實例將它喚醒,將它的主窗體置到最前,然後窗體的“最小化”按鈕失效了!這時窗體可以操作、可以最大化、可以關閉,卻再也不能最小化了!
  這是一個很郁悶的問題,一個不能最小化的窗體實在是很不友好的,我可以接受一個不禮貌的窗體,卻不願意接受一個這樣不友好的家夥。
  我發現問題原因的過程是這樣的:
  在進程中,主窗體的WM_SYSCOMMAND 消息是被傳遞給Application 類處理的,當CmdType 爲SC_MINIMIZE的時候,Application 會調用Minimize 方法:
  procedure TApplication.Minimize;
  begin
   if not IsIconic(FHandle) then
   begin
   NormalizeTopMosts;
   SetActiveWindow(FHandle);
   if (MainForm <> nil) and (ShowMainForm or MainForm.Visible)
   and IsWindowEnabled(MainForm.Handle) then
   begin
   SetWindowPos(FHandle, MainForm.Handle, MainForm.Left, MainForm.Top,
   MainForm.Width, 0, SWP_SHOWWINDOW);
   DefWindowProc(FHandle, WM_SYSCOMMAND, SC_MINIMIZE, 0);
   end else
   ShowWinNoAnimate(FHandle, SW_MINIMIZE);
   if Assigned(FOnMinimize) then FOnMinimize(Self);
   end;
  end;
  注意這個IsIconic(FHandle),它就是問題原因的冰山一角。IsIconic 是用來檢測窗體是否處于最小化狀態的API。我發現,第二實例將前一實例的主窗體置前之後,這個窗體最小化調用這個方法時,每次IsIconic(FHandle) 都是True。也就是說,Application 一直認爲自己是最小化的。
  于是問題就比較清楚了:我們在將主窗體強行置到最前的時候,Application 並沒有恢複原狀態。于是在Minimize 方法中主窗體就得不到最小化的命令了。
  難怪在VC 開發的程序中不會有這樣的問題!因爲不存在Application 的這個因素。
  于是我們只要將主窗體強行置前之前,首先將Application 恢複:
  if IsIconic(Application.Handle) then
  begin
   DefWindowProc(Application.Handle, WM_SYSCOMMAND, SC_RESTORE, 0);
  end;
  這樣就好了。
 
Delphi 消息機制引入的一個副作用
Delphi 在處理進程的消息時引入了一個隱藏的窗體Application ,借此進行消息的分發。這樣的機制優美的處理了消息的分發和處置的問題。但是最近我發現這個機制也引入了一個副作用,會在某些情況下影響程序的界面交互行...查看完整版>>Delphi 消息機制引入的一個副作用
 
DELPHI中的消息處理機制
Delphi 是Borland 公 司 提 供 的 一 種 全 新 的WINDOWS 編 程 開 發 工 具. 由 于 它 采 用 了 具 有 彈性 的 和 可 重 用 的 面 向 對 象Pascal(object-oriented pascal) 語 言, 並 有 強 大 的 數 據 庫 引 擎(B...查看完整版>>DELPHI中的消息處理機制
 
Delphi 消息機制學習筆記
最近幾天又將李維《Inside VCl》書中關于 Delphi 中 Windows 消息機制的實現看了一遍,這是第二遍了,本來看第一遍時已經完全看懂了,但沒做筆記,害得我又看了一遍,這回下定決心寫一個筆記。與此同時,我在網上遊蕩...查看完整版>>Delphi 消息機制學習筆記