Текущий архив: 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.021 c