Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Help! Проблема с отслеживанием активизации приложения [D5, WinXP]


boa ©   (2003-06-10 07:07:00) 

Приложение активно. Если нажать на кнопку (не знаю как правильно ее назвать) этого приложения в таскбаре то приложение минимизируется, но Application.Activeпочему-то = True(хотя фокус ввода находится уже в другом приложении).
Обрабатывал Application.OnActivate, OnDeactivate, сообщение WM_ACTIVATEAPP - все бесполезно, при таком варианте свертывания приложения оно почему-то считается активным. А мне нужно знать кагдо приложение реально активное. А точнее мне нужно отловить момент когда приложение реально активизируется и деактивизируется.
Помогите пожалуйста. Очень нужно, бьюсь 3й день !!!!!!


boa   (2003-06-10 17:32:00) [1]

К MINIMIZE я уже пытался вязаться там тоже свои проблеммы в разных ситуациях.
А вот ACTIVATEAPP + SETFOCUS в сочетании вроде бы привели к желаемому результату.
Но мне кажется должен быть более простой вариант решения этой проблеммы(может быть я не там рою). И если он существует, то Господа ПРОГРОММИСТЫ не откажите в любезности поделиться им.
(Не поверю что ни кто ни когда не выполнял каких либо действий при активизации и деактивизации приложения!!!)


Diamond Cat   (2003-06-10 16:17:00) [2]

wm_syscommand с параметрами SC_NEXTWINDOW SC_MINIMIZE (or SC_ICON) короче смотри по хелпу.
или еще может помочь application.onminimize


boa   (2003-06-10 11:02:00) [3]

> Yanis
Я веду речь о приложении а не о форме (у меня их куча и их активность меня не интересует)!


Yanis   (2003-06-10 09:33:00) [4]



procedure TForm1.WMACTIVATE(var msg: TWMACTIVATE);
begin
inherited;
If Msg.Active=WA_INACTIVE then Application.Title:="неактивно"
else
Application.Title:="активно"
end;


Наверх

Титульная страница Поиск, карта сайта Написать письмо