急急[ 有趣的编写EDIT控件问题 ],[ 高手请进 ]

Question

unit MEdit;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;type
  TMEdit = class(TEdit)
  private
    { Private declarations }
  protected
    { Protected declarations }
  public
    { Public declarations }
    procedure wmenter(var msg:twmenter); message wm_enter
    procedure wmexit(var msg:twmexit); mesage wm_exit;
  published
    { Published declarations }
  end;procedure Register;implementationprocedure Register;
begin
  RegisterComponents('Samples', [TMEdit]);
end;procedure TMEdit.OnEnter(var msg:twmenter);
begin
    inhrited
    .....
End;
procedure TMEdit.OnExit(var msg:twmexit);
begin
   inhrited
    .....
End;end.

Answer 1

try this:TMEdit = class(TEdit)
  private
    { Private declarations }
    procedure CMEnter(var Message: TCMEnter); message CM_ENTER;
    procedure CMExit(var Message: TCMExit); message CM_EXIT;
  protected
    { Protected declarations }
  public
    { Public declarations }
  published
    { Published declarations }
  end;

Answer 2

tazhch(鸭) :
 您好：
我安装时出现错误：
      [Error] MEdit.pas(19): Undeclared identifier: 'twm_enter'

Answer 3

楼上错了应该是：
tazhch(鸭) :
 您好：
我安装时出现错误：
      [Error] MEdit.pas(19): Undeclared identifier: 'twmenter'

Answer 4

还有我怎么添加一个属性呢？
比如：
    TT:String;

Answer 5

private
    FTT: string;
  published    { Published declarations }
    property TT: string read FTT write FTT;
  end;

Answer 6

unit MEdit;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;type
  TMEdit = class(TEdit)
  private
    { Private declarations }
  protected
    { Protected declarations }
  public
    { Public declarations }
    procedure OnEnter(Sender: TObject); override;
    procedure OnExit(Sender: TObject); override;
  published
    { Published declarations }
  end;procedure Register;implementationprocedure Register;
begin
  RegisterComponents('Samples', [TMEdit]);
end;procedure TMEdit.OnEnter(Sender: TObject);
begin
   inherited onEnter(Sender);
   .....
End;
procedure TMEdit.OnExit(Sender: TObject);
begin
   inherited OnExit(Sender); 
   .....
End;end.
先继承OnEnter事件和OnExit事件，否则你在程序里就不能控制OnEnter事件和OnExit事件了