Главная страница
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.04 c
15-1142317244
ВСА
2006-03-14 09:20
2006.04.02
Холодильник


6-1134371410
__DATA__
2005-12-12 10:10
2006.04.02
Кракозябры в теме письма.


15-1142244055
Nic
2006-03-13 13:00
2006.04.02
Что думаете о дизане компашки?


15-1142016649
Fl@sh
2006-03-10 21:50
2006.04.02
Связка таблиц..


4-1137272874
Delphi_is_cool
2006-01-15 00:07
2006.04.02
Убрать края у окна