Перейти к содержанию
Fire Monkey от А до Я
  • 0

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


伝説の

Вопрос

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

P.S.Windows 10, Delphi 10 Seattle.

Изменено пользователем My War
Ссылка на комментарий

Рекомендуемые сообщения

  • 0

 

Попробуйте

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

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

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

Изменено пользователем My War
Ссылка на комментарий
  • 0

Думаю, что все должно быть как для 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;

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

Ссылка на комментарий
  • 0

Думаю, что все должно быть как для 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;
не уверен, не пробовал, но "копать" - в том направлении..
Все четно, даже поиск не помог.
Ссылка на комментарий
  • 0

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

procedure TfmForm1.FormDeactivate(Sender: TObject);
begin
  if fmMain.WindowState = TWindowState.wsMinimized then
    ShowMessage('Minimized');
end;
Приходила такая идея в голову, но! WindowState всегда wsNormal.
Ссылка на комментарий
  • 0

 

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

procedure TfmForm1.FormDeactivate(Sender: TObject);
begin
  if fmMain.WindowState = TWindowState.wsMinimized then
    ShowMessage('Minimized');
end;
Приходила такая идея в голову, но! WindowState всегда wsNormal.

 

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

Ссылка на комментарий

Присоединяйтесь к обсуждению

Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.

Гость
Ответить на вопрос...

×   Вставлено с форматированием.   Вставить как обычный текст

  Разрешено использовать не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отображать как обычную ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставлять изображения напрямую. Загружайте или вставляйте изображения по ссылке.

  • Последние посетители   0 пользователей онлайн

    • Ни одного зарегистрированного пользователя не просматривает данную страницу
×
×
  • Создать...