Как вывести главное окно приложения на передний план

@jkrnd · Регистрация: 22.12.2015

Всем здравствуйте.

На форму помещён таймер. Если приложение свёрнуто на панель задач, то по истечению интервала таймера происходит развёртывание свёрнутого приложения. Вот код:

C++

__fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner)
{
    WindowState = wsMinimized;
    Timer1->Interval = 3000;
}
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
    Application->Restore();
    Timer1->Enabled = false;
}

Если же приложение не свёрнуто на панель задач, а просто заслонено другими окнами, то вышеприведенный код не срабатывает.
Пробовал и так:

C++

__fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner)
{
    Timer1->Interval = 3000;
}
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
    Application->Restore();
    ShowWindow(Handle, SW_SHOW);
    SetForegroundWindow(Handle);
    Timer1->Enabled = false;
}

Всё равно на передний план несвёрнутое, а только заслонённое другими формами окно не выводится.
Попробуйте запустить последний вариант и тут же щёлкнуть по любому другому окну, заслонив запущенное приложение.

@volvo · 23.12.2018, 12:30

Вот второй вариант как раз отработал нормально (WinXP, Win7), как из перекрытого окна, так и из минимизированного возвращается на передний план.

@jkrnd · 23.12.2018, 12:37 **[ТС]**

volvo, У меня в случае заслонённого окна просто мигает иконка на панели задач.
Вот так только получается и для развёрнутого и для свёрнутого окна:

C++

void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
    Application->Restore();
    FormStyle = fsStayOnTop;
    Timer1->Enabled = false;
    FormStyle = fsNormal;
}

@volvo · 23.12.2018, 12:46

ОС какая? И, заодно, версия Билдера. Потому что, как выяснилось, BCB6 иногда ведет себя очень неадекватно в некоторых случаях.

@jkrnd · 24.12.2018, 11:09 **[ТС]**

volvo, Действительно, BCB6 и XP в некоторых случаях дают странный результат. На Win8.1 второй вариант отработал как полагается. Вот окончательный вариант для работы под любой Windows, как со свёрнутым, так и "заслонённым" окном, обёрнутый для удобства в функцию:

C++

void __fastcall TForm1::ApplicationRestore()
{
    Application->Restore();
    SetWindowPos(Form1->Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE | SWP_NOSIZE);
    SetWindowPos(Form1->Handle, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE | SWP_NOSIZE);
    Application->BringToFront();    // Добавляет для XP 3-х кратное мигание значка на панели задач
}
__fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner)
{
    //WindowState = wsMinimized;
    Timer1->Interval = 5000;
}
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
    ApplicationRestore();
    Timer1->Enabled = false;
}

FormStyle = fsNormal; и FormStyle = fsStayOnTop; не подошли - заметно мигание

@Nexi99 · 11.04.2021, 16:41

Сообщение от jkrnd

SetWindowPos(Form1->Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE | SWP_NOSIZE);

У меня не работает.

@volvo Супер-модератор 32482 / 20968 / 8114 Регистрация: 22.10.2011 Сообщений: 36,235 Записей в блоге: 7
	23.12.2018, 12:30	2
	Вот второй вариант как раз отработал нормально (WinXP, Win7), как из перекрытого окна, так и из минимизированного возвращается на передний план. 1

@volvo Супер-модератор 32482 / 20968 / 8114 Регистрация: 22.10.2011 Сообщений: 36,235 Записей в блоге: 7
	23.12.2018, 12:46	4
	Сообщение было отмечено jkrnd как решение Решение ОС какая? И, заодно, версия Билдера. Потому что, как выяснилось, BCB6 иногда ведет себя очень неадекватно в некоторых случаях. 1

@Nexi99 142 / 26 / 4 Регистрация: 06.05.2019 Сообщений: 1,680 Записей в блоге: 4
	11.04.2021, 16:41	6
	Сообщение от jkrnd SetWindowPos(Form1->Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE \| SWP_NOSIZE); У меня не работает. 0

Опции темы

Как вывести главное окно приложения на передний план

Решение