Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Закрытие формы из другой формы [D7, XP]

vitge © (2010-12-14 17:19:00)
Вопрос по сути как-бы елементарный, но по событию onPressKeydown розмещенному на модуле формы 1, ставится закрытие другой Form4.close но этого не происходит. Но по другому событию это проиходит, по таймеру например. Ссылка в юните на другую форму имеется. Мистика какае-то. Спасибо за помощь.

vitge (2010-12-17 20:26:00) [1]
Вот теперь совсем замечательно.

Leonid Troyanovsky (2010-12-16 05:50:00) [2]

> vitge (15.12.10 17:51) [8]

> что означает and $8F <> 0

Ну, во-ще-то, должно быть $80, т.е. проверяем старший бит, 10000000,
sorry.

--
Regards, LVT.

vitge (2010-12-15 20:58:00) [3]
Теперь более ясно. Спасибо.

Ega23 (2010-12-15 17:57:00) [4]

> что означает and $8F <> 0

не and $8F <> 0, а GetKeyState(VK_CONTROL) and $8F <> 0
Или, если со скобочками, то (GetKeyState(VK_CONTROL) and $8F) <> 0

vitge (2010-12-15 17:51:00) [5]
Спасибо LVT и mahab за помощь. Есть ли можно на последок,
что означает and $8F <> 0 .... Заранее благодарен.

Leonid Troyanovsky (2010-12-14 19:56:00) [6]

> vitge (14.12.10 17:31) [4]

> все получилось. Но возникла ситуация - мне надо чтобы реакция
> была через комбинацию клавиш CTRL+1 , а там через только
> один код. Есть возможность такой обработки при нажатой клавише
> (ctl,alt ...)?

procedure TForm1.ApplicationEvents1ShortCut(var Msg: TWMKey; var Handled: Boolean); begin if Msg.CharCode = ORD('1') then if GetKeyState(VK_CONTROL) and $8F <> 0 then Form2.Close; end;
--
Regards, LVT.

mahab (2010-12-14 17:40:00) [7]
Посмотри Registerhotkey проста в использованиии.После регистрации
отлавливай типа WMhotkey(var mes); message WM_hotkey

mahab (2010-12-14 17:32:00) [8]
Виноват keypreview

mahab (2010-12-14 17:31:00) [9]

> И. Павел ©

> или событие ловится компонентом, который сейчас в фокусе,
> а не формой

То есть не включено свойсво формы ketpreview

vitge (2010-12-14 17:31:00) [10]
Кажется понял почему Форме 4 активна, и соответственно не воспринимается
onPressKeydown. Попробывал через applicationEventsShortCUT все получилось. Но возникла ситуация - мне надо чтобы реакция была через комбинацию клавиш CTRL+1 , а там через только один код. Есть возможность такой обработки при нажатой клавише (ctl,alt ...)?

И. Павел (2010-12-14 17:25:00) [11]

> onPressKeydow

А какое точно событие: OnKeyPress или OnKeyDown? Может быть, обработчик и не вызывается (например, нажата клавиша insert и т.п.) или событие ловится компонентом, который сейчас в фокусе, а не формой?

stas (2010-12-14 17:23:00) [12]
значит форма не перехватывает событие onPressKeydown.
Используй ActionList

Наверх

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