CODEWITHSUNDEEP
delphiwinapivclnotification-area
fossilz
fossilz

Reputation: 337

How can I check if my application has focus?

What I want to do is check if my application has focus because if it is not then I will popup an Alert Window just over the Notification Area to display some message to the end user.

Upvotes: 10

Views: 9567

Answers (4)

Anton Duzenko
Anton Duzenko

Reputation: 2616

D2007 has this useful property

if Application.Active then
//

Upvotes: 7

Remy Lebeau
Remy Lebeau

Reputation: 598289

Call Windows.GetForegroundWindow() and then pass the HWND to the Controls.FindControl() function. It will return a non-nil TWinControl pointer if the HWND belongs to your process. For example:

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

Upvotes: 18

Hamish_Fernsby
Hamish_Fernsby

Reputation: 578

A slight variation on Remys response is:

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

compiled ok for me, but I found it unreliable during debug, the stringgrid.setfocus is called even when the window isn't focused causing an error.

Upvotes: 0

Andreas Rejbrand
Andreas Rejbrand

Reputation: 109158

If your application consists of a single form, then

GetForegroundWindow = Handle

will suffice. The expression above is true if and only if the your form is the foreground window, that is, if keyboard focus belongs to a control on this form (or to the form itself).

If your application consists of a number of forms, simply loop through them and check if any of them matches GetForegroundWindow.

Upvotes: 4

Related Questions