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

← →
oleon (2002-12-17 12:49) [0]

Как написать код, чтобы при нажатии на стрелки вверх и вниз курсор перескакивал по контрола на форме(вметос того чтобы Tab жать?). Подскажите, пожалуйста.

← →
Song (2002-12-17 12:53) [1]

TForm.onKeyDown+TForm.Preeview+TForm.ActiveControl

← →
oleon (2002-12-17 13:06) [2]

чтобы он в том порядке, который в TabOrder прописан

← →
oleon (2002-12-17 13:08) [3]

может у кого уже есть код готовый, чтобы мне не сочинять?
скажу большое спасибо!

← →
Song (2002-12-17 13:15) [4]

Можно просто SelectNext()

← →
oleon (2002-12-17 13:54) [5]

спасибо... это круто...

← →
oleon (2002-12-17 14:33) [6]

написал на 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 14:59) [7]

проблема решена своими силами... спасибо

Здраствуйте. Переход по контролам на форме. Найти похожие ветки