Потеря Фокуса у формы

@Dinkin · Регистрация: 31.05.2013

Студворк — интернет-сервис помощи студентам

Необходимо что бы форма закрывалась по потери фокуса, сейчас это отлавливаю через таймер+GetForegroundWindow(). Возможно это как то сделать проще,может есть определенное событие у формы ?

@nick42 · 29.12.2015, 16:35

Ну, если не критична скорость загрузки таблицы и эта загрузка контролируема (в цикле), то сойдет и ProcessMessages(). Вот пример для заполнения Memo__

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
     TStringList *SL;
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{ 
   SL = new TStringList;
   SL->LoadFromFile("Znaki.txt"); 
   Memo1->Lines->Clear();  
   for(int i=0;i<SL->Count;i++)     {
     Memo1->Lines->Add(SL->Strings[i]); 
     Application->ProcessMessages();   
   }           
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ApplicationEvents1Activate(TObject *Sender)
{  Application->Title = "Activ"; }   
//---------------------------------------------------------------------------
void __fastcall TForm1::ApplicationEvents1Deactivate(TObject *Sender)
{   Application->Title = "Passiv";   } 
//---------------------------------------------------------------------------

(Я применил события ApplicationEvents, - на события формы реакция заторможена).

@ROLpogo · 30.12.2015, 15:47

К сожалению, загрузка не контролируема. ProcessMessage применить не удастся. Грид TDBGridEh смотрит на TMemTableEh и загрузка происходит вызовом метода TMemTableEh::Open(). Т.к. данных много, то приложение без потока вешает GUI на 5-7 сек. В этот промежуток и нужно было отловить момент переключения, чтобы корректно отрисовать дочернюю немодальную форму, а именно, проследить за тем, чтобы она была выше в Z-последовательности относительно родительского окна, но ниже чем остальные окна, стоящие выше родительского. Грубо говоря, следить за тем, чтобы дочернее окно имело Z+1 по отношению к родительскому при потере фокуса последней. А из-за того, что у дочерней стоял стиль fsStayOnTop, при переключении на другое приложение в момент загрузки грида, эта дочерняя форма оставалась выше, чем приложение, на которое было сделано переключение.

Новые блоги и статьи Все статьи Все блоги /
Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ" Adler 06.10.2026 Всем привет! За последние три-четыре дня я создал более 16 текстовых квестовых игр используя преимущественно по одному запросу к ИИ на игру. Мне так понравилось смотреть все ветки/ сцены во всех. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .

@Dinkin 783 / 556 / 136 Регистрация: 31.05.2013 Сообщений: 3,184 Записей в блоге: 3

	Потеря Фокуса у формы 24.02.2015, 18:12. Показов 5167. Ответов 21 Метки нет (Все метки) Необходимо что бы форма закрывалась по потери фокуса, сейчас это отлавливаю через таймер+GetForegroundWindow(). Возможно это как то сделать проще,может есть определенное событие у формы ? 0

@ROLpogo 5 / 5 / 2 Регистрация: 21.12.2015 Сообщений: 14
	30.12.2015, 15:47
	К сожалению, загрузка не контролируема. ProcessMessage применить не удастся. Грид TDBGridEh смотрит на TMemTableEh и загрузка происходит вызовом метода TMemTableEh::Open(). Т.к. данных много, то приложение без потока вешает GUI на 5-7 сек. В этот промежуток и нужно было отловить момент переключения, чтобы корректно отрисовать дочернюю немодальную форму, а именно, проследить за тем, чтобы она была выше в Z-последовательности относительно родительского окна, но ниже чем остальные окна, стоящие выше родительского. Грубо говоря, следить за тем, чтобы дочернее окно имело Z+1 по отношению к родительскому при потере фокуса последней. А из-за того, что у дочерней стоял стиль fsStayOnTop, при переключении на другое приложение в момент загрузки грида, эта дочерняя форма оставалась выше, чем приложение, на которое было сделано переключение. 1