Всем добрый день!
Окажите услугу, плиз: помогите разобраться с одним затыком.
C++ Builder 6.
У меня на форме имеется data-aware контрол DBCheckBox.
К нему прицеплен обработчик события OnKeyDown().
В этом обработчике рулится нажатие стрелок управления курсором вправо-влево.
Однако при нажатии этих клавиш софтина в этот обработчик не входит. В то время как при нажатии алфавитно-цифровых - входит на раз два. И выходит, кстати :-)
Я так понял, что этот чекбокс забивает на стрелки или они используются внутри класса для собственных целей.
Один умный человек посоветовал сделать следующим образом:
На форме поставить KeyPreview = true, а в обработчике OnKeyDown() формы
сделать следующее:

TWinControl *ctrl = dynamic_cast <TWinControl*> (Sender);
if (ctrl != NULL)
/*здесь нужно выяснить, если ли у контрола обработчик OnKeyDown()
Если он есть, его надо выполнить.

Соль вопроса: как узнать, есть ли обработчик OnKeyDown() у ctrl? :-)
*/
if (есть обработчик)
ctrl->OnKeyDown(Sender, Key, Shift);

Карабас БарабасКстати, Сендер - это будет форма, надо проверять ActiveControl
Пардон, конечно же ActiveControl.

С помощью свойства OnKeyDown не рулится, по причине того, что и свойство и метод для класса TWinControl является protected.
Поэтому пришлось пойти экстенсивным путем: проверять какой это контрол, если он входит в список тех, которые нужно проверять, выполнять анализ и при необходимости вызывать соответствующий метод.
НО! Этому долбанному чекбоксу по барабану!
Даже при таком способе он не реагирует на стрелки.
Так что буду выкручиваться по-другому: сгруппирую данные в гридку.
Вот код обработки KeyDown() для формы:
TDBGridEh *grd = dynamic_cast <TDBGridEh*> (ActiveControl);
TLabeledEdit *ldt = dynamic_cast <TLabeledEdit*> (ActiveControl);
TMaskEdit *mdt = dynamic_cast <TMaskEdit*> (ActiveControl);
TDBCheckBoxEh *dbchk = dynamic_cast <TDBCheckBoxEh*> (ActiveControl);
TDBEdit *dbedt = dynamic_cast <TDBEdit*> (ActiveControl);
TComboBox *cmb = dynamic_cast <TComboBox*> (ActiveControl);
TEdit *edt = dynamic_cast <TEdit*> (ActiveControl);
TTreeView *trv = dynamic_cast <TTreeView*> (ActiveControl);

if (grd != NULL)
if (grd->OnKeyDown != NULL)
grd->OnKeyDown(Sender, Key, Shift);

if (ldt != NULL)
if (ldt->OnKeyDown != NULL)
ldt->OnKeyDown(Sender, Key, Shift);

if (mdt != NULL)
if (mdt->OnKeyDown != NULL)
mdt->OnKeyDown(Sender, Key, Shift);

if (dbchk != NULL)
if (dbchk->OnKeyDown != NULL)
dbchk->OnKeyDown(Sender, Key, Shift);
if (dbedt != NULL)
if (dbedt->OnKeyDown != NULL)
dbedt->OnKeyDown(Sender, Key, Shift);

if (cmb != NULL)
if (cmb->OnKeyDown != NULL)
cmb->OnKeyDown(Sender, Key, Shift);

if (edt != NULL)
if (edt->OnKeyDown != NULL)
edt->OnKeyDown(Sender, Key, Shift);

if (trv != NULL)
if (trv->OnKeyDown != NULL)
trv->OnKeyDown(Sender, Key, Shift);

С помощью свойства OnKeyDown не рулится, по причине того, что и свойство и метод для класса TWinControl является protected.
Поэтому пришлось пойти экстенсивным путем: проверять какой это контрол, если он входит в список тех, которые нужно проверять, выполнять анализ и при необходимости вызывать соответствующий метод.
НО! Этому долбанному чекбоксу по барабану!
Даже при таком способе он не реагирует на стрелки.
Так что буду выкручиваться по-другому: сгруппирую данные в гридку.
Вот код обработки KeyDown() для формы:
TDBGridEh *grd = dynamic_cast <TDBGridEh*> (ActiveControl);
TLabeledEdit *ldt = dynamic_cast <TLabeledEdit*> (ActiveControl);
TMaskEdit *mdt = dynamic_cast <TMaskEdit*> (ActiveControl);
TDBCheckBoxEh *dbchk = dynamic_cast <TDBCheckBoxEh*> (ActiveControl);
TDBEdit *dbedt = dynamic_cast <TDBEdit*> (ActiveControl);
TComboBox *cmb = dynamic_cast <TComboBox*> (ActiveControl);
TEdit *edt = dynamic_cast <TEdit*> (ActiveControl);
TTreeView *trv = dynamic_cast <TTreeView*> (ActiveControl);

if (grd != NULL)
if (grd->OnKeyDown != NULL)
grd->OnKeyDown(Sender, Key, Shift);

if (ldt != NULL)
if (ldt->OnKeyDown != NULL)
ldt->OnKeyDown(Sender, Key, Shift);

if (mdt != NULL)
if (mdt->OnKeyDown != NULL)
mdt->OnKeyDown(Sender, Key, Shift);

if (dbchk != NULL)
if (dbchk->OnKeyDown != NULL)
dbchk->OnKeyDown(Sender, Key, Shift);
if (dbedt != NULL)
if (dbedt->OnKeyDown != NULL)
dbedt->OnKeyDown(Sender, Key, Shift);

if (cmb != NULL)
if (cmb->OnKeyDown != NULL)
cmb->OnKeyDown(Sender, Key, Shift);

if (edt != NULL)
if (edt->OnKeyDown != NULL)
edt->OnKeyDown(Sender, Key, Shift);

if (trv != NULL)
if (trv->OnKeyDown != NULL)
trv->OnKeyDown(Sender, Key, Shift);

Карабас БарабасСлушай, может тебе вместо чекбокса радиогруп использовать ? 2 колонки, 2 позиции, стрелками будет переходить из одной в другую
По моей ситуации лучше юзать гридку. Что я уже и сделал. Теперь все хорошо