最小化德爾福申請使用實時彈出菜單

Question

我試圖在計時器運行此：

Application.Minimize; 
ShowWindow(Application.handle, SW_HIDE); 

它已經在代碼永遠和我們剛剛發現，當你有一個積極的彈出菜單不工作它不會最小化MDI父窗口。

我想，如果我可以在運行此代碼之前關閉彈出式菜單，那麼我會好的。問題是，這段代碼在MDI Parent中，我不知道當前彈出菜單的位置。無論它是否是另一個窗體的工具欄的一部分，它都會形成工具欄，右鍵單擊或空格鍵旁邊看起來毫無意義的按鍵。

那麼，有沒有辦法在我的整個程序中隱藏活動彈出菜單？另外，如果有更好的代碼塊比我用來減少這個問題以避免這個問題，那也是非常棒的信息。

Answer 1

要關閉彈出菜單，你可以使用

if GetCapture <> 0 then 
    SendMessage(GetCapture, WM_CANCELMODE, 0, 0); 

在你的代碼中儘量減少表單之前。