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

[Shouldercannon]

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

[WinCoder]

то проверка на активность формы

А по английски?

панели задач

CoolTrayIcon Delphi 7

Так панель задач, или трэй? Есть как бы разница, куда тыкаешь мышью. И зачем пихать на форум для такого вопроса компонент?

[kropotkina-alice]

Сообщение от Shouldercannon

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

Вы не тот параметр проверяете.
Нужно проверять не Form.Active, а Application.Active.
При сворачивании кликом по иконке на панели задач форма (внутри приложения) остаётся активной, а вот приложение (внутри ОС) - неактивным...

[Shouldercannon]

Сообщение от WinCoder

Так панель задач, или трэй? Есть как бы разница, куда тыкаешь мышью.

Панель задачь.

Сообщение от kropotkina-alice

Вы не тот параметр проверяете.
Нужно проверять не Form.Active, а Application.Active.
При сворачивании кликом по иконке на панели задач форма (внутри приложения) остаётся активной, а вот приложение (внутри ОС) - неактивным...

//----------------------------Форма и вкладка активны---------------------------
  if ((Application.Active) and (LUserID.Caption = IntToStr(UserID))) then
  begin
    sndPlaySound('privatemessage.wav', SND_ASYNC);
  end;
//-----------------------Форма активна, вкладка не активна----------------------
  if ((Application.Active) and not (LUserID.Caption = IntToStr(UserID))) then
  begin
    //
  end;
//--------------------------Форма и вкладка не активны--------------------------
  if not ((Application.Active) and (LUserID.Caption = IntToStr(UserID))) then
  begin
    // Звуковое оповещение
    //sndPlaySound('privatemessage.wav', SND_ASYNC);
  end;

Тоже самое.

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

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 секунды) и сразу же сворачиваем форму на Панель задачь через кнопку формы на Панели задач. В данном случае звук проигрывается говоря о том, что форма активна, но она свёрнута и не показывается.

[kropotkina-alice]

Сделайте проверку вот так и получите удовольствие:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if Application.Active then
Application.Title:='Active' else
Application.Title:='Not active';
end;

(Смотрите на название на панели задач)

[Shouldercannon]

Не прокатит из-за реализации раздельного сворачивания форм. Главную форму вообще не видно

type
  TFormPreMain = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    procedure MsgHide(var msg: TMessage); message WM_USER + 1;
  public
    { Public declarations }
  end;

var
  FormPreMain: TFormPreMain;

implementation

uses frm_Main;

{$R *.dfm}

procedure TFormPreMain.MsgHide(var msg: TMessage);
begin
  ShowWindow(Application.Handle, SW_HIDE);
  ShowWindow(Self.Handle, SW_HIDE);
end; 

procedure TFormPreMain.FormCreate(Sender: TObject);
begin
  PostMessage(Self.Handle, WM_USER + 1, 0, 0);
end;

Не добраться до главной формы и проверять состояние Application бесполезно.