скрыть

скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Google  
 

Отображение главного окна приложения на переднем плане



{ **** UBPFD *********** by delphibase.endimus.com ****
>> Отображение главного окна приложения на переднем плане

Зависимости: Windows, SysUtils, Classes, Controls, Forms
Автор:       Dimka Maslov, mainbox@endimus.ru, ICQ:148442121, Санкт-Петербург
Copyright:   Dimka Maslov
Дата:        29 апреля 2002 г.
***************************************************** }

procedure JumpUp;
var
  Info: TAnimationInfo;
  Animation: LongBool;
  hApp: hWnd;
begin
  hApp := Application.Handle;
  if IsIconic(hApp) then
    Application.Restore
  else
  begin
    SetActiveWindow(hApp);
    Info.cbSize := SizeOf(Info);
    if SystemParametersInfo(SPI_GETANIMATION, SizeOf(Info), @Info, 0) then
      Animation := Info.iMinAnimate <> 0
    else
      Animation := False;
    Info.iMinAnimate := nFalse;
    SystemParametersInfo(SPI_SETANIMATION, SizeOf(Info), @Info, 0);
    ShowWindow(hApp, SW_MINIMIZE);
    ShowWindow(hApp, SW_RESTORE);
    Info.iMinAnimate := integer(Animation);
    SystemParametersInfo(SPI_SETANIMATION, SizeOf(Info), @Info, 0);
  end;
  Application.MainForm.Repaint;
end;





Copyright © 2004-2016 "Delphi Sources". Delphi World FAQ




Группа ВКонтакте   Ссылка на Twitter   Группа на Facebook