Событие

[terminadoor]

Как сделать так, чтоб при вводе текста в поле типа Tedit при нажатии клавиши Enter переходилось на другое поле Tedit ?

[Роман Радер]

в событии OnKeyPress:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key=#13 then
  begin
    edit2.SetFocus;
  end;
end;

а вообще чем таб плох?

[terminadoor]

Сообщение от Роман Радер

а вообще чем таб плох?

Tab ничем не плох. НО у меня в программе полей - 43. И столько раз табом переходить - плохая идея.

[Ring0Sn]

чтоб не писать для каждого едита отдельный

procedure TForm1.EditKeyPress(Sender: TObject; var Key: Char);  
begin  
  if Key=#13 then  
  begin  
    edit2.SetFocus;  
  end;  
end;

лутче пронумеруй у них таги по порядку и назначь всем общий обработчик OnKeyPress

procedure TForm1.AllEditKeyPress(Sender: TObject; var Key: Char);
var i, d : integer;
begin
  d := (Sender as TEdit).Tag;

  if Key = Char(VK_RETURN) then
    for i := 0 to ComponentCount - 1 do
      if Components[i] is TEdit then
        if (Components[i] as TEdit).Tag = d + 1 then begin
          (Components[i] as TEdit).SetFocus;
          Break;
        end;
end;

так будет комфортнее если у тебя их 43 =)

[Stilet]

НО у меня в программн полей 43

А СтрингГрид прикрутить уже не модно? Или ты свои эдиты распанахал по форме с размахом фокусника?

[SERG1980]

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if (key=VK_RETURN)then
FindNextControl(Sender as TWinControl,true,true,false).SetFocus;
end;

[Квэнди]

есть очень удобные списки параметров в стандартных компонентах Delphi...

[Роман Радер]

есть очень удобные списки параметров в стандартных компонентах Delphi...

в каком смысле списки параметров?

[Stilet]

Квэнди наверное имеет ввиду ValueListEditor

[MasterofCDM]

Использовал

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;  
Shift: TShiftState);  
begin  
if (key=VK_RETURN)then  
FindNextControl(Sender as TWinControl,true,true,false).SetFocus;  
end;

все работает, но при нажатии клавиши Enter, раздается звук, а как от него избавиться?