Заранее спасибо

сделал окно с цифровой клавиатурой. Когда нажата кнопка посылается значение в соответствующий контрол. все работает скажем для sle, em, button. Для dw работает но значение в поле приходит с опозданием. Наблюдается ситуация что щелкнул на трех кнопках а потом на кнопке ентер на цифровой клавиатуре и только после этого значение появляется в поле dw.

my example:
Send(ll_HWnd,258, Asc(as_keybutton), as_keybutton)
ll_HWnd - is handle dw

эт понятно. но эту проблему необходимо решить.

цифровая клавиатура пишется для существующего проекта. К сожелению в нем нет чтоб все dw наследовались от базового dw. или чтоб editmask наследовались от базового editmask. Если было наследование задачка б решалась быстро. Вариант ввести наследование рассматривается, но на него потребуется время.

Думаю есть и другие варианты решения даной задачи. Но я пока не нашел. Буду благодарен за подсказку.

1. если рассматривать вариант что контролы наследованы от своих базовых тогда цель известна.

2. в ситуации сейчас цель неизвестна.

3. возможно я должен искать другой вариант решения.

в OC есть osk.exe, вот мне необходимо реализовать такое только для цифровой клавиатуры + несколько определенных кнопок

1.
в gnv_app объявим GraphicObject ggo_Control

в базовом объекте (но сделать чтоб все контролы имели базовый трудоемкая задача по времени) в losefocus()
gnv_app.ggo_Control = getfocus()
для dw можем еще определить current column

теперь известна цель

для такого варианта я и пробовал send и привычный подход pb



2.
а как она будет известна если пользователь ушел в окно "цифровой клавиатуры" и уже не известно с какого окна и контрола. Но по логике если воспользоваться функциями API то мы должны получить Handle контрола с которого ушел пользователь. Правда у меня что то не получилось.

окно "ЦК" есть Popup + PaletteWindow = True
и размещается всегда правее активного окна
приложение не MDI
В любой момент пользователь может перейти на окно "ЦК"
например кликом на заголовке окна или на необходимой ему кнопке (набор кнопок это dw).

на данный момент ее нету.
Она будет если я реализую идею под номером 1. Проект большой, потребуется время. Вот я и в поисках инных вариантов решения.

Не уверен.
Эти свойства на команду Send() не имеют влияния

1. Сделал базовые объкты для проекта.
2. Все объекты проекта наследуются от своих базовых
3. Работа цифровой клавиатуры реализована средствами PB
Есть несколько моментов
1. Если пользователь кликает на цифровой клаве фокус уходит из активного окна. Как запретить уход фокуса
2. Цифры в поля DW вбиваются но есть проблемы с использованием клавиш Enter, Tab. не вызываются соответствующие события DW.
Буду благодарен за помощь.