关于继承

Question

如果我建了个dbedit输入框，里面有获得焦点时颜色改变，按回车到下一输入框等功能，
因为有很多类似的编辑框，我想在下面的输入框中能继承上面代码的功能，怎么办？
不好意思，才学delphi，请各位大虾指教.

Answer 1

KeyPreview := True;
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if key = #13 then
  begin
    key := #0;
    PerForm(WM_NEXTDLGCTL, 0, 0);
  end;
end;

Answer 2

procedure CMEnter(var Message: TCMEnter); message CM_ENTER;