Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.04.02;
Скачать: CL | DM;

Вниз

Программа поверх окон   Найти похожие ветки 

 
Dec ©   (2006-03-14 17:26) [0]

Я написал программу, которая сворачивается в SysTray. По таймеру должно развернуться главное окно программы поверх всех других окон и сделаться активным.
Вот код:
 frmMain.Show;
 Application.Restore;
 Application.BringToFront;
 Shell_NotifyIcon(NIM_DELETE, @NIC);//Удалить иконку из SysTray"я
 Application.ProcessMessages;

Проблема в том, что программа не ведет себя, как задумывалось. Если ничего не делать, то всё нормально. Но если сделать актвиной какую-нибудь другую программу, моя прога хотя и появится поверх других, но не будет активной. А если все программы свернуть, то моё приложение по срабатыванию таймера будет только мигать на панеле задач.
Я попробовал функции BringWindowToTop, SetForegroundWindow, ShowWindow - ничего не помогает.
Подскажите, пожалуйста, как сделать так, чтобы моё приложение при любых условиях выводилось поверх окон и делалось активным.


 
ASoft   (2006-03-15 07:37) [1]


> frmMain.Show;
>  Application.Restore;
>  Application.BringToFront;
>  Shell_NotifyIcon(NIM_DELETE, @NIC);//Удалить иконку из
> SysTray"я
>  Application.ProcessMessages;


Поменяйте очередность событий. frmMain.Show - не нужно, если это не та форма, которую нужно показывать при Application.Restore



Страницы: 1 вся ветка

Текущий архив: 2006.04.02;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.041 c
2-1142597848
Report3
2006-03-17 15:17
2006.04.02
Вопрос по Dbgrid


15-1141957486
grisme
2006-03-10 05:24
2006.04.02
Математика


2-1142509639
Gentos
2006-03-16 14:47
2006.04.02
Delphi&Html


2-1142944672
Алексей5
2006-03-21 15:37
2006.04.02
Удаление лишних пробелов в поле


6-1135025373
Eraser
2005-12-19 23:49
2006.04.02
Скорость работы TIdFTP.MakeDir