| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

как переделать стандартный переход между контролами [D5, WinXP]

BubbleGum ©   (2003-01-21 16:23:00) 

не подскажите как переделать стандартный переход между контролами с Таб на Энтэр ?

---

Романов Р.В.   (2003-01-21 16:28:00) [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:00) [2]

>BubbleGum
1) перекрой для формы реакцию на сообщение CM_DIALOGKEY
2) поставь TForm.KeyPreview := True;
3) напиши реакцию на Enter (код можешь взять из обработки
VT_TAB в методе TCustomForm.CMDialogKey)

---

REA   (2003-01-21 16:28:00) [3]

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

---

Наверх