как переделать стандартный переход между контролами

← →
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)

На форме KeyPreview и на Enter посылать Tab в активный контрол например.

как переделать стандартный переход между контролами Найти похожие ветки