IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

 
 Ответить  Открыть новую тему 
> Проблема с фокусом...
Vardes
сообщение 5.04.2007 17:01
Сообщение #1


Пионер
**

Группа: Пользователи
Сообщений: 131
Пол: Мужской

Репутация: -  0  +


Какие существуют способы для того, чтоб после нажатия кнопки с неё убирался фокус, т.к. если на ней будет фокус,то перестают работать такие события как OnKeyPress и Down (имеется ввиду события по нажатию на любые клавишы) ???

Сообщение отредактировано: Vardes - 5.04.2007 17:02
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
klem4
сообщение 5.04.2007 19:01
Сообщение #2


Perl. Just code it!
******

Группа: Модераторы
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


Перевести фокус на другую компоненту формы не пойдет ? или на саму форму ? напиши по подробней в чем проблема, не очень понятно ...


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Vardes
сообщение 5.04.2007 19:11
Сообщение #3


Пионер
**

Группа: Пользователи
Сообщений: 131
Пол: Мужской

Репутация: -  0  +


Так даже если на др. компоненту формы фокус перевести, то обычное событие OnKeyPress просто не работает, на любую клавишу нажимаешь, а программа в процедуру TForm1.FormKeyPress не входит...Если сделать свойство всех компонент *.Enabled:=False, тогда процедура заработает...Из всего этого можно судить о том, что во всём виноват фокус, его и надо убрать со всех компонент...
Как кстати перевести фокус на Форму ?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
volvo
сообщение 5.04.2007 19:39
Сообщение #4


Гость






А у тебя, кстати, KeyPreview формы в True переброшен?
 К началу страницы 
+ Ответить 
Vardes
сообщение 5.04.2007 19:53
Сообщение #5


Пионер
**

Группа: Пользователи
Сообщений: 131
Пол: Мужской

Репутация: -  0  +


Всё спасибо, всё получилось...раньше просто не знал о таком....
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 8.07.2025 3:09
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"