Скрытие приложения с панели задач.

[伝説の]

Собственно как это можно сделать?
Не знаю как с VCL, но в FM этого сделать не получается.

P.S.Windows 10, Delphi 10 Seattle.

Изменено 24 сентября, 2015 пользователем My War

[AngryOwl]

Попробуйте

uses
  {$IFDEF MSWINDOWS}, Winapi.Windows, FMX.Platform.Win{$ENDIF};

{$IFDEF MSWINDOWS}
ShowWindow(ApplicationHWND, SW_HIDE);
{$ENDIF}

[伝説の]

 

Попробуйте

uses
  {$IFDEF MSWINDOWS}, Winapi.Windows, FMX.Platform.Win{$ENDIF};

{$IFDEF MSWINDOWS}
ShowWindow(ApplicationHWND, SW_HIDE);
{$ENDIF}

Приложение просто свернется, толку...

Изменено 24 сентября, 2015 пользователем My War

[AngryOwl]

т.е. Вы попробовали? или просто так.. по "наитию" пришли к такому выводу?

[伝説の]

т.е. Вы попробовали? или просто так.. по "наитию" пришли к такому выводу?

Блин, реально убирает, спасибо!

[AngryOwl]

  TfmForm1 = class(TForm)
  .......
  protected
    procedure CreateHandle; override;

procedure TfmForm1.CreateHandle;
begin
  inherited CreateHandle;
  ShowWindow(ApplicationHWND, SW_HIDE);
end;

[伝説の]

Так, а как теперь отловить сворачивание приложения/формы?

[AngryOwl]

 

т.е. Вы попробовали? или просто так.. по "наитию" пришли к такому выводу?

Блин, реально убирает, спасибо!

 

Не за что

[AngryOwl]

Так, а как теперь отловить сворачивание приложения/формы?

Тоже только под винду?

[伝説の]

Так, а как теперь отловить сворачивание приложения/формы?

Тоже только под винду?

Только под нее.

[AngryOwl]

Думаю, что все должно быть как для VCL-приложений.

protected
  procedure WMSysCommand(var Msg:TMessage); message WM_SYSCOMMAND;

procedure TfmForm1.WMSysCommand(var Msg:TMessage);
begin
  if Msg.WParam=SC_MINIMIZE then
  begin
    .....
  end else
  inherited;
end;

не уверен, не пробовал, но "копать" - в том направлении..

[伝説の]

Думаю, что все должно быть как для VCL-приложений.

protected
  procedure WMSysCommand(var Msg:TMessage); message WM_SYSCOMMAND;

procedure TfmForm1.WMSysCommand(var Msg:TMessage);
begin
  if Msg.WParam=SC_MINIMIZE then
  begin
    .....
  end else
  inherited;
end;

не уверен, не пробовал, но "копать" - в том направлении..

Все четно, даже поиск не помог.

[AngryOwl]

В принципе можно сделать так (совсем уж просто):

procedure TfmForm1.FormDeactivate(Sender: TObject);
begin
  if fmMain.WindowState = TWindowState.wsMinimized then
    ShowMessage('Minimized');
end;

[伝説の]

В принципе можно сделать так (совсем уж просто):

procedure TfmForm1.FormDeactivate(Sender: TObject);
begin
  if fmMain.WindowState = TWindowState.wsMinimized then
    ShowMessage('Minimized');
end;

Приходила такая идея в голову, но! WindowState всегда wsNormal.

[AngryOwl]

 

В принципе можно сделать так (совсем уж просто):

procedure TfmForm1.FormDeactivate(Sender: TObject);
begin
  if fmMain.WindowState = TWindowState.wsMinimized then
    ShowMessage('Minimized');
end;

Приходила такая идея в голову, но! WindowState всегда wsNormal.

 

Очень странно, потому-что у меня все работает