Как оптимизировать выполнение одинаковых обработчиков событий

[smartyrogue]

Имеется объект типа TEdit, и его обработчики: OnChange (обработка вводимых символов), OnEnter (смена цвета при входе), OnExit (возврат цвета при выходе).

procedure TForm_Manualinput.E31Change(Sender: TObject);
begin
  NumberEditCtD(E31, False);
end;

procedure TForm_Manualinput.E31Enter(Sender: TObject);
begin
  E31.Color:=ColorActive;
end;

procedure TForm_Manualinput.E31Exit(Sender: TObject);
begin
  E31.Color:=clWhite;
end;

Предположим есть еще 5 объектов типа TEdit, с такими же обработчиками. Как сделать чтобы не городить еще 15 процедур???

[_SERGEYX_]

NumberEditCtD((Sender as TEdit), False);
(Sender as TEdit).Color:=ColorActive;
(Sender as TEdit).Color:=clWhite;

и подключи ко всем Edit-ам.
Смысл понятен?

[smartyrogue]

To _SERGEYX_
Так сделать??? Или я просто не понимаю как подключить это ко всем TEdit

  procedure modify(obj:TObject);
  begin
    NumberEditCtD((obj as TEdit), False);
  end;
  procedure enter(obj:TObject);
  begin
    (obj as TEdit).Color:=ColorActive;
  end;
  procedure exit(obj:TObject);
  begin
    (obj as TEdit).Color:=ColorActive;
  end;

-----

procedure TForm_Manualinput.E31Change(Sender: TObject);
begin
  modify(Sender);
end;

procedure TForm_Manualinput.E31Enter(Sender: TObject);
begin
  enter(Sender);
end;

procedure TForm_Manualinput.E31Exit(Sender: TObject);
begin
  exit(Sender);
end;

Или поподключать каким-то образом процедуры к обработчикам через инспектор объектов???

[psycho-coder]

В инспекторе объектов, перейди на вкладку Evenets. И выбери для эдита, обработчики событий.
OnChange - E31Change,
OnEnter - E31Enter,
OnExit - E31Exit.
И так для всех.
Но, я думаю лучше разобраться с кодом от _SERGEYX_.

[_SERGEYX_]

Ага. psycho-coder все правильно написал.

procedure TForm_Manualinput.E31Enter(Sender: TObject);
begin
 (Sender as TEdit).Color:=ColorActive;
end;

и далее выбери все остальные Edit-ы и
выбери для них событие OnEnter - E31Enter

[smartyrogue]

Спасибо за помощь =)