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

@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, при переключении на другое приложение в момент загрузки грида, эта дочерняя форма оставалась выше, чем приложение, на которое было сделано переключение.

Новые блоги и статьи Все статьи Все блоги /
Где деньги лежат kumehtar 02.07.2026 Это - японская подводная лодка I-52 (тип C2, кодовое имя Momi) вышла из Японии в марте 1944 года с миссией в оккупированную немцами Францию (Лорьян). Это была одна из «Янаги»-миссий по обмену. . .	Krabik для WoW 3.3.5a, многоязычный AmbA 02.07.2026 Допилил бота, думаю что окончательно. Изменения: - добавлена многоязычность - добавлено снятие скриншотов - добавлено поддержание бафов хождения по воде (для жреца, дк и шамана) - и так, по. . .	Алиса нашла кучу ошибок компиляции и запуска в проекте, который без проблем компилировался и запускался))) anaschu 30.06.2026 Я пока посмеюся, но завтра проверю. А вообще интерсно. Дал алисе файл, в котором точно нет ошибок компиляции и запуска, и попросил их найти. Нашла кучу))) Критические ошибки, мешающие компиляции и. . .	сукцессия 16. Общий обзор, в основном что бы другие ии поняли anaschu 29.06.2026 # Передаточный документ: модель микоризной сукцессии (для нового чата) Этот документ предназначен для того, чтобы новый чат Claude мог продолжить работу без необходимости заново разбираться в. . .
сукцессия 15 неявная схема anaschu 29.06.2026 Алиса Калибровка параметров симбиотической модели: технический обзор Содержание: Введение Постановка проблемы Технические аспекты реализации Процесс внедрения изменений	сукцессия 14. Обновленная схема модели anaschu 28.06.2026 ГЛОБАЛЬНАЯ ОПИСАТЕЛЬНАЯ СПЕЦИФИКАЦИЯ ЭКОСИСТЕМНОЙ МОДЕЛИ «SOIL CHEMISTRY & MYCORRHIZA 2. 0» https:/ / ibb. co/ NnkGpfMd Представленная интегрированная схема описывает непрерывную нелинейную. . .	сукцессия 13. Питон модель трехзонного мицелия, пока что в основном арбускулярного anaschu 28.06.2026 ## Разработка агентной модели микоризной сукцессии: от выявления артефактов к созданию комплексной системы ### Аннотация Представлено исследование по разработке агентной модели микоризной. . .	сукцессия 12. краткий список проверок модели перед запуском. anaschu 27.06.2026 Скрытые отказы в моделях систем динамики (SD-models) экологических систем: два случая из практики Контекст Разбирался прототип модели систем динамики (SD-модели) микоризной сукцессии: пять. . .

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

	Потеря Фокуса у формы 24.02.2015, 18:12. Показов 5096. Ответов 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