如何檢查我的應用程序是否有焦點？

Question

我想要做的是檢查我的應用程序是否有焦點，因爲如果它不是，那麼我會彈出一個警報窗口剛好在通知區域以顯示一些消息給最終用戶。

Answer 1

致電Windows.GetForegroundWindow()然後將HWND傳遞給Controls.FindControl()函數。如果HWND屬於您的進程，它將返回非零TWinControl指針。例如：

if FindControl(GetForegroundWindow()) <> nil then 
    // has focus ... 
else 
    // does not have focus ... 

Answer 2

如果您的應用程序由一個單一的形式，然後

GetForegroundWindow = Handle 

就足夠了。上面的表達式當且僅當您的窗體是前景窗口，也就是說，如果鍵盤焦點屬於此窗體上的控件（或窗體本身），則上述表達式爲true。

如果您的應用程序包含多個表單，只需遍歷它們並檢查它們中的任何一個是否匹配GetForegroundWindow。

Answer 3

上Remys響應的細微變化是：

Var 
    Win: TWinControl; 
Begin 
    Win := FindControl(GetForegroundWindow); 
    if Win <> nil then 
//  StringGrid1.Row :=5; 
//  StringGrid1.SetFocus; 

編譯OK的我，但我發現它不可靠的調試過程中，stringgrid.setfocus被稱爲即使窗口ISN」重點導致一個錯誤。

Answer 4

D2007具有這種有用的屬性

if Application.Active then 
//