Восстановление минимизированного приложения

Delphi , Рабочий стол , TrayBar

Восстановление минимизированного приложения

При минимизации формы я использую RxTrayIcon, чтобы при этом исчезла

кнопка из Панели задач вызываю ShowWindow(Application.Handle,SW_HIDE).

Но вот незадача - не получается при восстановлении приложения (после клика

на TrayIcon) добиться, чтобы оно становилось поверх других окон и обязательно было активным.

Дело оказалось в следующем : гасить Tray-иконку надо в последнюю очередь,

именно так все работает(ранее сначала гасил Tray-иконку, а уже потом восттанавливал свое приложение).

Таким образом правильно работает следующий код:

Code:

procedure TForm1.ApplicationMinimize(Sender :  TObject);

        begin

        RxTrayIcon1.Show;

        ShowWindow(Application.Handle,SW_HIDE);

        end;

         

        procedure TForm1.RxTrayIcon1Click(Sender:  TObject; Button: TMouseButton;

                 Shift: TShiftState; X, Y: Integer);

        begin

        Application.Restore;

        SetForeGroundWindow(Application.MainForm.Handle);

        RxTrayIcon1.Hide;

        end;

Авторы ответа: Song, Den

Взято с Vingrad.ru http://forum.vingrad.ru

При восстановлении минимизированного приложения в Windows нужно гасить Tray-иконку в последнюю очередь, а не раньше, чем восстанавливать свое приложение.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.

:: Главная :: TrayBar ::

Время компиляции файла: 2024-08-19 13:29:56
2024-11-21 13:21:52/0.0050280094146729/1