[Vavrenyuk]

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

[lmikle]

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

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

[Vavrenyuk]

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

[Black Raider]

Сюда:

Код:

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

Сюда:

Код:

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);

begin

  if key=VK_RETURN then SelectNext(ActiveControl as TWinControl,true,true);

end;

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

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

Код:

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]

Код:

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

Код:

.....
    if (Shift = [ssShift]) then SelectNext(ActiveControl as TWinControl,false,true)
.....

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

Код:

  if ssShift in Shift then .....

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