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

> ВНИМАНИЕ!

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

Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.

 
 Ответить  Открыть новую тему 
> Вопрос по использованию Enter вместо кнопки
сообщение
Сообщение #1


Бывалый
***

Группа: Пользователи
Сообщений: 205
Пол: Мужской
Реальное имя: Евгений

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


В компонент Edit вводятся какие-то данные. Есть кнопка "Сохранить", после нажатия которой введенные данные сохраняются.
Как сделать чтобы вместо нажатия кнопки, заставить эту функцию выполнять кнопку Enter на клавиатуре?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Я.
****

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

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


передать кнопке фокус.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Бывалый
***

Группа: Пользователи
Сообщений: 205
Пол: Мужской
Реальное имя: Евгений

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


а если кнопки вообще нет?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


mea culpa
*****

Группа: Пользователи
Сообщений: 1 372
Пол: Мужской
Реальное имя: Николай

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


Ну, если я правильно понял, что тебе нужно, то на обработчик OnKeyPress твоего Edit'а вешаешь код:

...
if key=#13 then button1.click; //<---обработчик нажатия на кнопку сохранить
...


И далее в обработчике нажатия кнопки делаешь activecontrol:=edit1;

Добавлено через 1 мин.
А если кнопки нет, то просто пишешь процедуру и уже её вызываешь вместо обработчика нажатия на кнопку.


--------------------
"Знаешь, стыдно - когда не видно, что услышал всё, что слушал.."
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Бывалый
***

Группа: Пользователи
Сообщений: 205
Пол: Мужской
Реальное имя: Евгений

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


не совсем понял где нужно указать: activecontrol:=edit1;
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


mea culpa
*****

Группа: Пользователи
Сообщений: 1 372
Пол: Мужской
Реальное имя: Николай

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


В обработчике нажатия на кнопку, т.е. в button1.click; , или в процедуре, которая выполняет функцию этого обработчика, если кнопки нету.


--------------------
"Знаешь, стыдно - когда не видно, что услышал всё, что слушал.."
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


Бывалый
***

Группа: Пользователи
Сообщений: 205
Пол: Мужской
Реальное имя: Евгений

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


вот тут другая проблема теперь возникла: при нажатии Enter, данные сохраняются, тут все нормально. Но при этом издается звук похожий на щелчек. в папке windows->media он называется Windows XP-динь. Совершенно не хочется постоянно слушать этот "динь"!
Почему он издается?? и как устранить его проигрывание??
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #8


Гость






Цитата
Почему он издается?? и как устранить его проигрывание??
Чтоб ответить на второй вопрос, сначала надо ответить на первый. А чтоб ответить на первый - надо видеть код, и знать, на каких данных у тебя это все происходит... Показывай код, а то гадать на кофейной гуще как-то неинтересно...
 К началу страницы 
+ Ответить 
сообщение
Сообщение #9


Бывалый
***

Группа: Пользователи
Сообщений: 205
Пол: Мужской
Реальное имя: Евгений

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


В событии onkeypress dbedita находится следующий код:
if key=#13 then bitbtn6.click;
Все, в dbedite больше ничего не изменено. Дальше, в bitbtn, на которую переключается фокус при нажатии Enter в событии onclick:
begin
activecontrol:=dbedit5;
activecontrol:=dbedit6;
activecontrol:=dbedit7;
activecontrol:=dbedit8;

if form5.xd.Modified then
form5.xd.Post;
dbedit5.SetFocus;
form5.xd.Insert;
Label1.Caption := IntToStr(xd.RecordCount);
end;



Сообщение отредактировано: 1147 -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #10


Гость






Цитата
В событии onkeypress dbedita находится следующий код:
Этот код, конечно, передает управление в bitbtn6.click, но само нажатие на Enter кто отменять будет? Из-за него у тебя и звуки появляются...
if key=#13 then begin
key := #0; bitbtn6.click;
end;
Вот так, например...
 К началу страницы 
+ Ответить 
сообщение
Сообщение #11


Бывалый
***

Группа: Пользователи
Сообщений: 205
Пол: Мужской
Реальное имя: Евгений

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


smile.gif Звук исчез. Спасибо!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

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

 





- Текстовая версия 29.03.2024 17:03
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name