Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Здраствуйте. Переход по контролам на форме. [D5]

oleon © (2002-12-17 12:49:00)
Как написать код, чтобы при нажатии на стрелки вверх и вниз курсор перескакивал по контрола на форме(вметос того чтобы Tab жать?). Подскажите, пожалуйста.

oleon (2002-12-17 14:59:00) [1]
проблема решена своими силами... спасибо

oleon (2002-12-17 14:33:00) [2]
написал на KeyDown Для каждого контрола

if (ord(key)=13) then
SelectNext(ActiveControl, True, True);

if (ord(key)=40) then
SelectNext(ActiveControl, True, True);

if (ord(key)=38) then
SelectNext(ActiveControl, False, True);

и вот когда активный контрол RXCurrency, то по Enter он перескакивает, а по стрелке вниз не перескакивает...
на Tedit все работает нормально

oleon (2002-12-17 13:54:00) [3]
спасибо... это круто...

Song (2002-12-17 13:15:00) [4]
Можно просто SelectNext()

oleon (2002-12-17 13:08:00) [5]
может у кого уже есть код готовый, чтобы мне не сочинять?
скажу большое спасибо!

oleon (2002-12-17 13:06:00) [6]
чтобы он в том порядке, который в TabOrder прописан

Song (2002-12-17 12:53:00) [7]
TForm.onKeyDown+TForm.Preeview+TForm.ActiveControl

Наверх

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