![]() |
|
#1
|
|||
|
|||
![]() Подскажите пож., возможно ли в Delphi не используя код а в настройках программы сделать так, чтобы курсор с поля на поле переходил не под клавише Tab а по клавише Enter?
|
#2
|
|||
|
|||
![]() Вроде нельзя. - перевод от Tab производится ОС, все что сверх - кодом
|
#3
|
|||
|
|||
![]() Плохо..................
|
#4
|
|||
|
|||
![]() Да ладно, там 2 строчки кода и одна настройка.
|
#5
|
|||
|
|||
![]() Цитата:
а настройка какая? |
#6
|
||||
|
||||
![]() настройка:
KeyPreview:=True; код: Код:
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if Key=VK_RETURN then SelectNext(ActiveControl, True, True); end; Пишу программы за еду. __________________ |
#7
|
|||
|
|||
![]() Спасибо, все работает, только теперь по Enter звук типа бипера из динамиков идет, как его убрать, или это звуковая схема Винды работает???
|
#8
|
||||
|
||||
![]() Можно так попробовать
Код:
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if Key=VK_RETURN then begin Perform(WM_KEYDOWN, VK_TAB, ...); Perform(WM_KEYUP, VK_TAB, ...); end; end; — Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |