Закрыть форму

[RaFaeL]

С63 ABC
Мне нужно, чтобы по Ctrl+Enter закрывались формы
Они собственно и так закрываются, кроме случая, когда курсор на поле TEXT. Прописываю на поле горячую клавишу

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

    OF EVENT:PreAlertKey
      case keycode()
      of CtrlEnter
        post(event:accepted,?OK)
        cycle
      end

Форма закрывается, но не сохраняются изменения в этом текстовом поле. Почему? Чего не хватает?

[Admin]

UPDATE(feq) не ?

[RaFaeL]

Спасибо, разобрался )

[Игорь Столяров]

Что бы было совсем красиво, можно зайти с другой стороны и еще добавить
выбор всего текста для удаления или копирования:

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

  Case KeyCode()
  Of CtrlEnter
     Tovar.Name = Clip(Left(?Tov:Name{Prop:Value}))
     Post(Event:Accepted,?OK)
  Of CtrlA
     If Len(Clip(?Tov:Name{Prop:Value})) > 0 then Select(?Tov:Name,1,Len(Clip(?Tov:Name{Prop:Value}))).
  end