Переключение фокуса между полями по нажатию Enter

[shplint]

Здравствуйте!

Есть интерфейс с несколькими полями (2 поля выбора даты для фильтра ), фокус между ними переключается по Tab или мышкой, что не очень удобно. При нажатии Enter интерфейс закрывается.

Как сделать так, чтобы если фокус находится в первом поле, то по Enter-у фокус переходил во второе поле, если во втором поле - то срабатывал бы cmOK?

[m0p3e]

1. Из описания интерфейса убрать DoAccept.
2. В cmDefault определять какое поле текущее и выполнять определенные действия.

[shplint]

А как установить курсор на нужное поле? В мануале нашел функцию SelectField(), но что-то она не отрабатывает.

[m0p3e]

SelectField(#FieldName) работает, но капризна.

[m0p3e]

Что-то в потоке команд сбивает. Вот так работает:

Код: Выделить всё

Interface TestSelect;

Create View
Var 
  dBeg
, dEnd 
            : date;

As Select
   *
From 
  x$users
;

Screen scr1;
  table x$users;
Fields
  dBeg, noProtect;
  dEnd, noProtect;

<<
 A .@@@@@@@@@@@
 B .@@@@@@@@@@@
>>
End;

HandleEvent

cmDefault : 
  Case CurField Of
    #dEnd: 
      Message('Запуск...');
    else 
      PutCommand(cmValue1);
  End;

cmValue1: 
  Case CurField Of
    #dBeg:  
      SelectField(#dEnd);
  End;

End;

END.

[vadim]

Сергей,

[Screw]

Убрать DoAccept было достаточно. Стандартная обработка Enter как раз и заключается в смене фокуса. Если в обработчике cmDefault не скомандовать Атлантису stop (или abort - нет доки под рукой), он честно сменит фокус в дополнение к тому, что указал в обработчике прикладник.