forum.clarionlife.net

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

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

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

!локальные данные
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