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

Материал из DRKB

Восстановление минимизированного приложения[править | править код]

При минимизации формы я использую RxTrayIcon, чтобы при этом исчезла кнопка из Панели задач вызываю ShowWindow(Application.Handle, SW_HIDE). Но вот незадача - не получается при восстановлении приложения (после клика на TrayIcon) добиться, чтобы оно становилось поверх других окон и обязательно было активным.

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

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

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;


Author: Song, Den
Source: Взято с Vingrad.ru http://forum.vingrad.ru
ID: 00406