Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 17.12.2007, 20:20   #1
PAVEL315
Форумчанин Подтвердите свой е-майл
 
Аватар для PAVEL315
 
Регистрация: 18.11.2006
Сообщений: 172
По умолчанию Enter

Код:
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
case Key of
vk_return: button3.Click;
end
end;
В чём ошибка??? Клавишей Enter Button3 не click!!!
Пробовал и так:
Код:
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
case Key of
vk_return: begin
button3.SetFocus;
button3.Click;
edit4.SetFocus;
end
end;
end;
Всё равно не прёт!!! Помогите пожалуйста!!!
дык!
PAVEL315 вне форума Ответить с цитированием
Старый 17.12.2007, 20:24   #2
PAVEL315
Форумчанин Подтвердите свой е-майл
 
Аватар для PAVEL315
 
Регистрация: 18.11.2006
Сообщений: 172
По умолчанию

О!!! До меня дошло!!! Первое не прёт, так как у мну выделен Edit, а Enter в нём - сами знаете что! А вот со вторым - мне непонятно!?! Или надо в Edit отслеживать нажатие Enter, а затем нажимать Button???
дык!
PAVEL315 вне форума Ответить с цитированием
Старый 17.12.2007, 20:32   #3
n@sok
Пользователь
 
Регистрация: 24.11.2007
Сообщений: 46
По умолчанию

А свойство KeyPreview у формы в true установлено?
n@sok вне форума Ответить с цитированием
Старый 17.12.2007, 20:33   #4
mutabor
Телепат с дипломом
Старожил
 
Аватар для mutabor
 
Регистрация: 10.06.2007
Сообщений: 4,929
По умолчанию

Button3Click(Self);
The future is not a tablet with a 9" screen no more than the future was a 9" black & white screen in a box. It’s the paradigm that survives. (Kroc Camen)
Проверь себя! Онлайн тестирование | Мой блог
mutabor вне форума Ответить с цитированием
Старый 17.12.2007, 20:34   #5
PAVEL315
Форумчанин Подтвердите свой е-майл
 
Аватар для PAVEL315
 
Регистрация: 18.11.2006
Сообщений: 172
По умолчанию

2 n@sok
Поподробнее можНО???
mutator
Спасибо, ща попробуем
дык!
PAVEL315 вне форума Ответить с цитированием
Старый 17.12.2007, 20:36   #6
PAVEL315
Форумчанин Подтвердите свой е-майл
 
Аватар для PAVEL315
 
Регистрация: 18.11.2006
Сообщений: 172
По умолчанию

Код:
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
case Key of
vk_return:button3Click(Self);
end;
end;
Не прёт...
дык!
PAVEL315 вне форума Ответить с цитированием
Старый 17.12.2007, 20:41   #7
mutabor
Телепат с дипломом
Старожил
 
Аватар для mutabor
 
Регистрация: 10.06.2007
Сообщений: 4,929
По умолчанию

Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage('Это я, кнопка 1');
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key = 13 then Button1Click(Self);
end;
The future is not a tablet with a 9" screen no more than the future was a 9" black & white screen in a box. It’s the paradigm that survives. (Kroc Camen)
Проверь себя! Онлайн тестирование | Мой блог
mutabor вне форума Ответить с цитированием
Старый 17.12.2007, 20:41   #8
n@sok
Пользователь
 
Регистрация: 24.11.2007
Сообщений: 46
По умолчанию

События от клавиатуры всегда приходять на элемент, на котором установлен фокус. Для того, чтобы и сама форма их видела и предназначено свойство KeyPreview. Установив его в true будут обрабатываться события OnKeyDown, OnKeyUp и OnKeyPress самой формы, а не только элемента под фокусом.
n@sok вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
как вставить Enter Аlex Общие вопросы Delphi 18 09.11.2018 16:26
По нажатию Enter Andr Общие вопросы Delphi 8 22.12.2008 16:58
String Grid обработка Enter Nesta Общие вопросы C/C++ 3 18.11.2007 06:13
Ctrl+Enter kisska Win Api 3 22.08.2007 20:55
Enter Slash Общие вопросы Delphi 2 24.03.2007 17:40