|
Почти всегда требуется обработка нажатий клавиш "вверх-вниз" для смены фокуса ввода - мои "тетки-юзеры" боются мышей, да и сам я не любитель комбинаций мышь-клавиатура. procedure TfmAbProps.edNameKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState); begin
if (Key=vk_down) and
not (ssAlt in Shift) // здесь обработка для "выпадающих" окошек типа
TRxDBCalcEdit
then begin Key:=0;
SelectNext(Sender as TWinControl,true,true);
end else
if Key=vk_up then begin
Key:=0;
SelectNext(Sender as TWinControl,false,true);
end;
end; Для элементов редактирования типа TDbEdit, TRxDBCalcEdit or TDBDateEdit назначим OnKeyDown:=edNameKeyDown Сложнее с типами вроде TRxDBLookupCombo. Наш прежний обработчик для них не подходит. Я пытался изменить характер TRxDBLookupCombo - но вовремя опомнился - есть же FormKeyDown; procedure TfmAbProps.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState); begin
if (ActiveControl is TRxDBLookupCombo) then begin
if Key=vk_down then begin
if not (ssAlt in Shift) and not // здесь нельзя обработать нажатие при вызове "выпадающего"
(ActiveControl as TRxDBLookupCombo).IsDropDown then begin // и в случае уже "выпвшего"
Key:=0; selectnext(ActiveControl,true,true); end; end else
if Key=vk_up then begin if not (ActiveControl as TRxDBLookupCombo).IsDropDown then begin Key:=0; selectnext(ActiveControl,false,true); end; end;
end;
end; |