Проверка на активность формы возвращает True после сворачивания

[Shouldercannon]

Доброго времени суток!
Не могу понять в чём дело. Если форму свернуть с помощью иконки Свернуть в верхнем правом углу формы, то проверка на активность формы возвращает False. Если форму свернуть кликнув по кнопке формы на Панели задач, то проверка на активность возвращает True.
Помогите, пожалуйста разобраться.

У каждой формы есть своя кнопка на панели задач благодаря

Код: (Delphi)

procedure TForm.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  Params.ExStyle := Params.ExStyle or WS_EX_APPWINDOW;
end;

Что делаем:
1. Запускаем приложение, нажимаем кнопку Test (у нас есть 3 секунды) и сразу же сворачиваем форму на Панель задачь через кнопку Свернуть в верхнем правом углу формы. В данном случае всё нормально и звук не проигрывается.
2. Запускаем приложение, нажимаем кнопку Test (у нас есть 3 секунды) и сразу же сворачиваем форму на Панель задачь через кнопку формы на Панели задач. В данном случае звук проигрывается говоря о том, что форма активна, но она свёрнута и не показывается.

[zubr]

Проверка на активность методом Self.Active не совсем корректна. Для этого надо смотреть как в дельфи реализовано свойство формы Active изнутри.
GetForegroundWindow в помощь.

[Shouldercannon]

Проверка на активность методом Self.Active не совсем корректна.

Код: (Delphi)

FormMain.Active

Тоже самое даёт

Для этого надо смотреть как в дельфи реализовано свойство формы Active изнутри.

Код: (Delphi)

property Active: Boolean read FActive;

Не оно?

[zubr]

А условие LUserID.Caption = IntToStr(UserID) у тебя выполняется? По идее данное свойство все равно должно работать, оно привязано к сообщению WM_ACTIVATE

[Shouldercannon]

А условие LUserID.Caption = IntToStr(UserID) у тебя выполняется? По идее данное свойство все равно должно работать, оно привязано к сообщению WM_ACTIVATE

Тоже выполняется.