希望当焦点在Edit时,如果按了Enter键,Edit就失去焦点,应该如何写出代码?

Question

我是说在创建基于Tedit的组建时:
DoKeyDown和DoKeyPress都是静态的,无法被重载. 请教各位高人,有什么好办法可以达到目的? 谢谢!

Answer 1

上面打错了一个字,
"我是说在创建基于Tedit的组建时:" 应为 "我是说在创建基于Tedit的组件时:"

Answer 2

写对应的函数，跟拖一个Edit到窗体上一样

Answer 3

procedure wmchar(var message :tmessage);message wm_char;
uses messages;
procedure wmchar(var message :tmessage);
begin
if message.wparam=enter then
message.wparam=tabkey;
inherited; 
end;

Answer 4

谢谢二位的回答回答.
    照抄wfhlxl()的代码并放在单元文件的适当位置后,编译通不过,说找不到wparam定义,估计您这是个大致说明.遂按照您例子中的指引,找到了过程WMChar在Controls.pas中原型定义,并写成如下的样子.虽然可以编译成功,但运行时的效果是按任何键都没反应,除非按Enter时响一下"叮"外,焦点也不会移动的.
    烦请各位再帮我诊断一下. 十万分的感激!!!
unit Edit1;interfaceuses
  SysUtils, Classes, Controls, StdCtrls,Dialogs, Graphics,Messages;type
  TEdit1 = class(TEdit)
  private
    { Private declarations }
  protected
    procedure WMChar(var Message: TWMChar); message WM_CHAR;
    { Protected declarations }
  public
    { Public declarations }
  published
    { Published declarations }
  end;procedure Register;implementation//---------------------
procedure Register;
begin
  RegisterComponents('MyComponents', [TEdit1]);
end;//---------------------
procedure TEdit1.WMChar(var Message: TWMChar);
begin
if message.CharCode=13 then
  begin
    message.CharCode:=9;
    inherited;
  end;
end;end.

Answer 5

procedure Tmaterial1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if Ord(Key) = VK_RETURN then Keybd_Event(VK_TAB, MapVirtualKey(VK_TAB, 0), 0, 0);
end;再把form的keypreview设为true

Answer 6

procedure TEdit1.WMChar(var Message: TWMChar);
begin
if message.CharCode=13 then
  begin
    sendmessage(parent.handle,wm_keyup,9,0);// parent have two can get focus controls at least
    inherited;
  end;
end

Answer 7

procedure TEdit1.WMChar(var Message: TWMChar);
begin
if message.CharCode=13 then
  begin
    sendmessage(parent.handle,wm_keydwon,9,0);// 
    sendmessage(parent.handle,wm_keyup,9,0);// parent have two can get focus controls at least
    inherited;
  end;
end