Điều tôi muốn làm là kiểm tra xem ứng dụng của tôi có tập trung hay không vì nếu không thì tôi sẽ bật Cửa sổ cảnh báo ngay trên Vùng thông báo để hiển thị một số thông báo cho người dùng cuối.Làm cách nào để kiểm tra xem ứng dụng của tôi có tập trung không?
Gọi Windows.GetForegroundWindow() và sau đó chuyển HWND tới chức năng Controls.FindControl(). Nó sẽ trả về một con trỏ không phải là TWinControl nếu số HWND thuộc về quá trình của bạn. Ví dụ:
if FindControl(GetForegroundWindow()) <> nil then
// has focus ...
else
// does not have focus ...
Nếu ứng dụng của bạn bao gồm một hình thức duy nhất, sau đó
GetForegroundWindow = Handle
sẽ đủ. Biểu thức ở trên là đúng nếu và chỉ khi biểu mẫu của bạn là cửa sổ nền trước, tức là, nếu tiêu điểm bàn phím thuộc về điều khiển trên biểu mẫu này (hoặc chính biểu mẫu).
Nếu ứng dụng của bạn bao gồm một số biểu mẫu, chỉ cần lặp qua các biểu mẫu đó và kiểm tra xem có bất kỳ biểu mẫu nào trong số đó phù hợp với GetForegroundWindow hay không.
Một biến thể nhẹ trên Remys phản ứng là:
Var
Win: TWinControl;
Begin
Win := FindControl(GetForegroundWindow);
if Win <> nil then
// StringGrid1.Row :=5;
// StringGrid1.SetFocus;
biên soạn ok đối với tôi, nhưng tôi thấy nó không đáng tin cậy trong gỡ lỗi, các stringgrid.setfocus được gọi ngay cả khi cửa sổ isn' t tập trung gây ra lỗi.
D2007 có thuộc tính hữu ích này
if Application.Active then
//