Текущий архив: 2003.01.30;
Скачать: CL | DM;
Вниз
как переделать стандартный переход между контролами Найти похожие ветки
← →
BubbleGum © (2003-01-21 16:23) [0]не подскажите как переделать стандартный переход между контролами с Таб на Энтэр ?
← →
Романов Р.В. © (2003-01-21 16:28) [1]procedure TCargoForm.edVolMassKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = VK_RETURN then
begin
Key := 0;
Perform(WM_NEXTDLGCTL, 0, 0);
end;
end;
← →
Skier © (2003-01-21 16:28) [2]>BubbleGum
1) перекрой для формы реакцию на сообщение CM_DIALOGKEY
2) поставь TForm.KeyPreview := True;
3) напиши реакцию на Enter (код можешь взять из обработки
VT_TAB в методе TCustomForm.CMDialogKey)
← →
REA © (2003-01-21 16:28) [3]На форме KeyPreview и на Enter посылать Tab в активный контрол например.
Страницы: 1 вся ветка
Текущий архив: 2003.01.30;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.014 c
