如何捕获Edit的Enter事件？？

Question

如何捕获Edit的Enter事件？？ not onenter

Answer 1

>>如何捕获Edit的Enter事件？？ not onenter
兩個有什麼區別??

Answer 2

WM_SETFOCUS消息,获得焦点type
  tde=class(TEdit)
  protected
  procedure wndproc(var message:Tmessage);override;
end;procedure tde.wndproc(var message:tmessage);
begin
  if message.msg=wm_setfocus then
  begin
    showmessage('no focus');
    exit;
  end;
  inherited wndproc(message);
end;procedure TForm1.BitBtn7Click(Sender: TObject);
var
  e:tde;
begin
  e:=tde.Create(form1);
  e.Top:=10;
  e.Left:=10;
  e.Parent:=form1;
  e.Show;
end;

Answer 3

呵呵，aiirii起这么早啊，问个早！

Answer 4

procedure Tfrm_main.edt_cm_macKeyPress(Sender: TObject; var Key: Char);
begin
  if key = #13 then
    showmessage('Enter press');
end;
不知道你是不是要这样