[Vavrenyuk]

Я только начинаю осваивать Delphi 7. Уважаемые программисты подскажите пожалуйста как сделать чтобы нажимая на клавишу "Enter" переходило по полям как нажимая на "Tab".

[lmikle]

А гугле забанили?

Например, см тут:
http://www.chami.com/tips/delphi/122996D.html

[Vavrenyuk]

Спасибо за ссылку. Скажите пожалуйста куда этот код писать ?

[Black Raider]

Сюда:

Код:

1 2 3 4 5 6 7 8

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;   Shift: TShiftState);   begin     if key=VK_RETURN then SelectNext(ActiveControl as TWinControl,true,true);   end;

[poli-smen]

Сообщение от Black Raider

Сюда:

Код:

Только у формы нужно свойство KeyPreview установить в True, иначе ничего не получится.
Кстати если фокус будет на кнопке (TButton например), то по нажатию Enter фокус перейдёт к следующему элементу, но также сработает и нажатие этой кнопки.

Ещё можно на форму бросить компонент TApplicationEvents и у него на событие OnMessage добавить такой обработчик:

Код:

1 2 3 4 5 6 7 8

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean); begin   if (Msg.message = WM_KEYDOWN) and (Msg.wParam = VK_RETURN) then   begin     Handled := True;     SelectNext(ActiveControl as TWinControl, True, True);   end; end;

[Vavrenyuk]

Спасибо большое. Скажите, а можно сделать чтобы ещё нажимая на Shift + Enter переходило на предыдущее поле ?

[Black Raider]

Да. проверяйте Shift: TShiftState в процедуре.

[Vavrenyuk]

Не могли бы Вы написать подробно ? Я только начинаю изучать Delphi.

[Black Raider]

Код:

1 2 3 4 5 6 7 8 9 10

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;   Shift: TShiftState);   begin     if key=VK_RETURN then     if (Shift = [ssShift]) then SelectNext(ActiveControl as TWinControl,false,true)     else SelectNext(ActiveControl as TWinControl,true,true);   end;

[Vavrenyuk]

Спасибо большое. Очень помогли.

[poli-smen]

Сообщение от Black Raider

Код:

Здесь лучше так:

Код:

1	if ssShift in Shift then .....

Так как в таком виде проверяется состояние только клавиши Shift вне зависимости от состояния остальных клавиш.