Application.Active

← →
TButton © (2004-02-28 20:09) [0]

Написал я скринсейвер(VCl), работает нормально, но есть один момент. бывает сейвит он сейвит мойскрин, вдруг бах пришло сообщение по MailSlot"ам (ну net send которые), скринсейвер сворачивается в некрасивый заголовок окна над кнопкой пуск. Ну мне это конечно не понравилось и я в onTimer"е написАл
1. if not Application.Active then Close;
2. if WindowState<>wsNormal then Close;
теоритически должно хватить и первого (таймер работает при неактивном приложении), но на практике - не помогает. Внимание, вопрос :) Что делать? (чтоб при деактивации прога умирала)

← →
TButton © (2004-02-28 20:30) [1]

Удалено модератором
Примечание: Извини, но прямой экзешник не желателен. Дай лучше ссылку на исходники... или оставь...

← →
Ultr © (2004-02-28 20:46) [2]

Повесь на прогу "ApplicationEvents" - у него ивент есть такой ОнАппДеактивейт вот и все...

Либо, если не хошь компонент цеплять, то на Application.Deactivate(вроде так) повесь процедурку(а в процедурке application.terminate напиши)

← →
TButton © (2004-02-28 22:31) [3]

повесил, днем проверю (попрошу месаг мне кинуть). пока вешал обнаружил что я еще и в Form1.Deactivate Close написАл. мож оно и не деактивейтится... на всякий случай в onMinimize чиркану закрывание.

2Удалено модератором
:) приму к сведению.

Application.Active Найти похожие ветки