Одна процедура для всех Edit(ов)

[SoftKoc]

!Здравствуйте!

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key = #13 Then
 Begin
  Edit2.SetFocus;
 End;
end;

procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if key = #13 Then
 Begin
  Edit3.SetFocus;
 End;
end;

procedure TForm1.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
if key = #13 Then
 Begin
  Edit4.SetFocus;
 End;
end;

procedure TForm1.Edit4KeyPress(Sender: TObject; var Key: Char);
begin
if key = #13 Then
 Begin
  Edit5.SetFocus;
 End;
end;

Подскажите пожалуйста, как это все сделать одной процедурой

Заранее очень благодарен

[TwiX]

Все едиты пихаем массив, i-му элементу ставим i-ый tag и всем даём, например, такую процедуру

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
  begin
    if TEdit(Sender).Tag<>10 then
      edts[TEdit(Sender).Tag+1].SetFocus;
  end;
end;

Вот и небольшой примерчик)

[Alex Cones]

Sender: TObject;

Обратите внимание на это. Sender - тот, кто исполняет процедуру.
Есть еще FindComponent

[SoftKoc]

Сообщение от Alex Cones

Обратите внимание на это. Sender - тот, кто исполняет процедуру.

На это я и обращал свое внимание!
Просто не хочется забивать проект мелкими процедурами
Может можно написать процедуру которая будет при нажатии на
Enter проверят на каком Edit(е) фокус и делать инкремент
для того чтобы передать фокус следующему.

[Alex Cones]

Вот пример для шейпов:

procedure TForm1.ShapeContextPopup(Sender: TObject; MousePos: TPoint;
  var Handled: Boolean);
begin
  TShape(Sender).Brush.Color:=clred;
end;

В Вашем случае берете имя эдита, затем переводите в строку, хапаете последний символ, переводите в цифру, инкрементируете, делаете FindComponent по новому критерию и делаете с ним действия.

[SoftKoc]

Сообщение от Alex Cones

Вот пример для шейпов:

procedure TForm1.ShapeContextPopup(Sender: TObject; MousePos: TPoint;
  var Handled: Boolean);
begin
  TShape(Sender).Brush.Color:=clred;
end;

В Вашем случае берете имя эдита, затем переводите в строку, хапаете последний символ, переводите в цифру, инкрементируете, делаете FindComponent по новому критерию и делаете с ним действия.

Но эту процедуру придется вызывать для каждого Edit(а) отдельно по KeyPress! И та же проблема, много мелких процедур!

[TwiX]

Чем не устраивает мой пример?
Не нравиться массив?
Можно и без массива - каждому едиту присваиваем таги по возрастанию, всем присваиваем одну процедуру по нажатию. В которой вытаскиваем tag посылающего едита и, парся компоненты формы на едиты и, параллельно, проверяя таг текущего компонента, находим нужный едит и посылаем на него фокус. Но мне кажется с массиваами болле рационльно

[maxionans]

Все гораздо проще. Используешь такой код для всех Edit-ов:

procedure TForm7.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
    Self.SelectNext( Sender as TWinControl, True, False );
end;

И устанавливаешь подходящий TabOrder для каждого Edit-а. Теперь, по нажатию Enter фокус будет перемещаться между компонентами.