скрыть

скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Google  
 

Использование Enter как Tab в TDBGrid



Заядлый компьютерщик заходит в банк снять денег. Кассирша ему:
- Сколько?
- Мне плиз 1024 рубля!

Приведу код, позволяющий использовать нажатие клавиши Enter как клавиши Tab пока управление находится в табличной сетке.

Данный код включает обработку клавиши Enter для всего приложения, включая поля и пр.. Код для работы с компонентом DBGrid заключен в блок ELSE. Приведенный код не имитирует поведение клавиши Tab, связанное с переходом на следующую запись когда курсор достигает последней колонки табличной сетки, в нашем случае он перемещается на первую колонку.


procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
{ Это обработчик события OnKeyPress для ФОРМЫ! }
{ Вы должны также установить свойство формы KeyPreview в True }
begin
  if Key = #13 then { если это клавиша Enter }
    if not (ActiveControl is TDBGrid) then
    begin { если не на TDBGrid }
      Key := #0; { гасим клавишу Enter }
      Perform(WM_NEXTDLGCTL, 0, 0);
        { перемещаемя на следующий элемент управления }
    end
    else if (ActiveControl is TDBGrid) then { если это TDBGrid }
      with TDBGrid(ActiveControl) do
        if selectedindex < (fieldcount - 1) then { увеличиваем поле }
          selectedindex := selectedindex + 1
        else
          selectedindex := 0;
end;






Copyright © 2004-2016 "Delphi Sources". Delphi World FAQ




Группа ВКонтакте   Ссылка на Twitter   Группа на Facebook