прошелмимо,
в textbox вважу символу,только когда ъ или п нажимаю пояляется одна и тоже буква,эта происходи тогда когда раскладка AZ.Мне в это и надо набрать.Буквы перекодируется в keyprese.

проходящий.pulsпрошелмимо,
ЕСЛИ раскладка RU или EN проблема нет,проблема возникает в раскладек AZ.Это азербайджанская чтоль? Вы хотите в неюникодном контроле показать юникодные символы?
Я хочу scankey знать п,ъ.Для осталных я проблему решил если интресно я могу показать программы.

Dima T,
LPARAMETERS nKeyCode, nShiftAltCtrl
M.S=ALLTRIM(This.Value)
M.L=this.selstart
M.H='*'
DO CASE
CASE nKeyCode=63
DO CASE
CASE nShiftAltCtrl=0 AND CAPSLOCK()
M.H='Я'
CASE nShiftAltCtrl=1 AND CAPSLOCK()
M.H='я'
CASE nShiftAltCtrl=0 AND !CAPSLOCK()
M.H='я'
CASE nShiftAltCtrl=1 AND !CAPSLOCK()
M.H='Я'
ENDCASE
CASE nKeyCode=231
M.H='ч'
CASE nKeyCode=199
M.H='Ч'
CASE nKeyCode=186
M.H='ш'
CASE nKeyCode=170
M.H='Ш'
CASE nKeyCode=220
M.H='Ц'
CASE nKeyCode=252
M.H='ц'
CASE nKeyCode=71 &&ПРОБЛЕМ
M.H='Ь'
CASE nKeyCode=103 &&ПРОБЛЕМ
M.H='ь'
CASE nKeyCode=214
M.H='Ю'
CASE nKeyCode=246
M.H='ю'
CASE nKeyCode=73
M.H='Ы'
CASE nKeyCode=105
M.H='ы'
OTHERWISE
*
ENDCASE
IF M.H#'*'
NODEFAULT
This.Value = SUBSTR(M.S,1,this.selstart)+M.H+SUBSTR(M.S,this.selstart+1)
this.selstart=M.L+1
ENDIF
M.MEM=This.Value
и используюутся дополнителный font.

Aleksey-K,
Как делать так что проверить нажать ли не SHIFT а ъ или п?

Aleksey-K,

Я провериль о проверяеть нажат ли Shift.
А мне надо проверить нажать ли п или ъ?

[quot puls]Aleksey-K,
К чему равно VK_SHIFT и VN_SHIFT для п или ъ соответственно.?

Спосибо Алексейу,блогодаря ему я свой проблему решил.ъ-0xdd,g-0x47.Может кому то понадибется.Тема закрыт.Спосибо Всем.