EIP - DecimalKey

gopstop2007

При редактировании Browse по месту (EIP), как в числовое поле вставить точку используя кнопку DECIMALKEY? Где нужно вставить, чтобы заработало типа такого?

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

IF KEYCODE()=DecimalKey THEN PRESS('.') END

gopstop2007

Нашел решение, если есть более простое и правильное - поправьте.

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

!локальные данные
l_EIP_DecimalKey	BYTE 

! EIP Field Manager ... Ваш Browse и поле EIP
 	!SetAlerts Procedure, Virtual после Parent Call
 	 SELF.Feq{PROP:Alrt,7} = DecimalKey

! TakeEvent Procedure (Unsigned ....  перед Parent Call
 IF event:alertkey
    case keycode()
    of DecimalKey
        IF l_EIP_DecimalKey = 0
            press('.')
            l_EIP_DecimalKey = 1
        END
    END
 END

! Kill Procedure Virtual после Parent Call
   l_EIP_DecimalKey = 0

kreator

А что за клавиша? NumLock?

gopstop2007

kreator писал(а): А что за клавиша? NumLock?

kreator

Ну эта клавиша и так даёт точку или запятую в зависимости от раскладки. Но! Только при нажатом NumLock. Можно проверять и переключать NumLock. Но решать этот момент за пользователя? Не знаю.

gopstop2007

kreator писал(а):Ну эта клавиша и так даёт точку или запятую в зависимости от раскладки. Но! Только при нажатом NumLock. Можно проверять и переключать NumLock. Но решать этот момент за пользователя? Не знаю.

Numlock здесь ни при чем

мне надо при любой раскладке - точка!