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

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

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 12.11.2012, 22:41   #1
Vavrenyuk
Пользователь
 
Регистрация: 12.11.2012
Сообщений: 16
По умолчанию Enter как Tab

Подскажите пожалуйста, как сделать чтобы при нажимании на клавишу Enter переходило по полям как при нажимании на Tab.
Vavrenyuk вне форума Ответить с цитированием
Старый 12.11.2012, 23:18   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Код:
ActiveControl:=FindNextControl(FindNextControl,true,true,true);
Подходит?
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 12.11.2012, 23:32   #3
Vavrenyuk
Пользователь
 
Регистрация: 12.11.2012
Сообщений: 16
По умолчанию

Цитата:
Сообщение от Stilet Посмотреть сообщение
Код:
ActiveControl:=FindNextControl(FindNextControl,true,true,true);
Подходит?
Это писать куда ?

Последний раз редактировалось Vavrenyuk; 12.11.2012 в 23:42.
Vavrenyuk вне форума Ответить с цитированием
Старый 13.11.2012, 01:00   #4
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Например в событие OnKeyDown
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 14.11.2012, 00:06   #5
Vavrenyuk
Пользователь
 
Регистрация: 12.11.2012
Сообщений: 16
По умолчанию

Цитата:
Сообщение от Stilet Посмотреть сообщение
Например в событие OnKeyDown
Нет...
[Error] Unit1.pas(112): Not enough actual parameters
Vavrenyuk вне форума Ответить с цитированием
Старый 14.11.2012, 00:33   #6
Neeter
Форумчанин
 
Аватар для Neeter
 
Регистрация: 22.02.2009
Сообщений: 875
По умолчанию

Vavrenyuk, вам правильно сказали, вот пример:

Код:
  private
    //Общий обработчик события для инпутов
    procedure inputKeyDownHandler(Sender: TObject; var Key: Word; Shift: TShiftState);
...

//При создании формы всем TEdit'ам присваивается общий обработчик
procedure TForm1.FormCreate(Sender: TObject);
var
 i: integer;
begin
 if ComponentCount <> 0 then
  for i := 0 to ComponentCount - 1 do
   if Components[i] is TEdit then
    TEdit(Components[i]).OnKeyDown := inputKeyDownHandler;
end;

//Обработка нажатия Enter'а
procedure TForm1.inputKeyDownHandler(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
 if not (Sender is TEdit) then Exit;
 if Key = VK_RETURN then ActiveControl := FindNextControl(ActiveControl, true, true, true);
end;
Чтобы обнаруживать ошибки, программист должен иметь ум, которому доставляет удовольствие находить изъяны там, где, казалось, царят красота и совершенство.
Neeter вне форума Ответить с цитированием
Старый 14.11.2012, 13:12   #7
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Цитата:
ActiveControl := FindNextControl(ActiveControl, true, true, true);
Прошу прощения описался - первый параметр конечно же ActiveControl
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 14.11.2012, 15:26   #8
Vavrenyuk
Пользователь
 
Регистрация: 12.11.2012
Сообщений: 16
По умолчанию

Спасибо за код. Всё получилось.
Vavrenyuk вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как вывести TAB в тексте? fordegans Общие вопросы Delphi 2 26.10.2012 16:37
Как не беспокоить прогу по Alt-Tab mpdasa Помощь студентам 0 27.06.2012 13:47
Как программно перехватить tab ? Delphi Человек Панда Помощь студентам 1 10.09.2011 23:07
Не работает Tab в дочерних диалогах Tab controla ajborman Win Api 1 25.11.2010 16:55
как отрисовать tab-ы в pagecontrol? blackstersl Общие вопросы Delphi 5 09.07.2009 17:57