VPF::как отследить потерю фокуса формой

Ospa

Дата 25.2.2008, 20:23 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 44
Регистрация: 27.7.2005

Репутация: нет
Всего: нет

народ как отследить потерю фокуса формой и скрыть ее после этого?

lukas

Дата 25.2.2008, 20:30 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 771
Регистрация: 23.2.2007

Репутация: 3
Всего: 15

есть такое событие у формы... OnDeactive... вот тогда и теряется фокус формы!

--------------------

http://code.google.com/p/orionphp/ - opensource скриптовой язык Orion (аналог PHP) для freepascal/delphi.

Ospa

Дата 25.2.2008, 21:17 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 44
Регистрация: 27.7.2005

Репутация: нет
Всего: нет

Цитата(lukas @ 25.2.2008, 20:30)

есть такое событие у формы... OnDeactive... вот тогда и теряется фокус формы!

оно происходит только если щелкаешь по другой форме в данном приложении а мне надо поймать глобальную потерю фокуса

anwe

Дата 25.2.2008, 23:22 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 748
Регистрация: 2.9.2006

Репутация: нет
Всего: 23

Надо использовать метод обработки сообщений:

Код


interface
uses Messages;
procedure My(var mes:TWMACTIVATE); message WM_ACTIVATE;

implementation
procedure TForm1.My;
begin
if mes.Active=WA_INACTIVE then
Form1.Close;  //или что-то другое
end;

Ospa

Дата 26.2.2008, 09:42 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 44
Регистрация: 27.7.2005

Репутация: нет
Всего: нет

Цитата(anwe @ 25.2.2008, 23:22)

Надо использовать метод обработки сообщений:

Код


interface
uses Messages;
procedure My(var mes:TWMACTIVATE); message WM_ACTIVATE;

implementation
procedure TForm1.My;
begin
if mes.Active=WA_INACTIVE then
Form1.Close;  //или что-то другое
end;

этот код работает, но как то странно, почему то вызывается 2 раза и тем самым вызывая ошибку show or hide, короче бился бился ничего сделать немогу. форма показывается по сочетанию клавиш form1.show, потом при помощи этого кода при потере фокуса исчезает, далее при сочетании клавиш она показывается и в этот момент почемуто опять срабатывает код скрытия и возникает эта ошибка, поэтому и создал данную тему, может есть какой то другой способ?

Ospa

Дата 26.2.2008, 12:17 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 44
Регистрация: 27.7.2005

Репутация: нет
Всего: нет

появилась новая проблема smile

скрытие формы работает, но 2 форма которая показывается при на жатии на кнопку у 1 формы какого то фига неактивна, как только убираю функцию определения фокуса, то все работает правильно smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »