高手请进，怎样让动态创建的组件如edit响应事件处理？不够加分，急

Question

动态创建的edit,怎样能够让它响应mousemove事件

Answer 1

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, Buttons;type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    procedure MyEditMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation
uses
CommCtrl;
{$R *.dfm}procedure TForm1.MyEditMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  with (Sender as TEdit) do
    Text := Text + '*';
end;procedure TForm1.Button1Click(Sender: TObject);
begin
  with TEdit.Create(Self) do
  begin
    Parent := Self;
    Top := 100;
    Left := 100;
    OnMouseMove := MyEditMouseMove;
  end;end;end.

Answer 2

up
注意
procedure MyEditMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
的声明位置