首先要在uses中加入
ExtCtrls
先检查一下加了没？
如果加了我再继续帮你看。

先放一个Image控件,先生成它的onmousemove方法，然后再定义一个跟它的接口一样的过程，函数声名也放在同样的地方，前边自动生成的那个可以不要了，动态生成控件是，将它的onmousemove指向这个新生成过程

覆盖他原来的方法不行吗？

UP

unit ExImage;

interface

uses
  SysUtils, Classes, Controls, ExtCtrls, Messages;

type
  TExImage = class(TImage)
  private
    { Private declarations }
    FOnMouseMove: TNotifyEvent;
    procedure CMMouseMove(var Msg: TMessage); message CM_MOUSEMOVE;
    procedure MouseMove;
  protected
    { Protected declarations }
  public
    { Public declarations }
  published
    { Published declarations }
    property OnMouseMove: TNotifyEvent
      read FOnMouseMove
      write FOnMouseMove;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Additional', [TExImage]);
end;

procedure TExImage.CMMouseMove(var Msg: TMessage);
begin
  inherited;
  MouseMove;
end;

procedure TExImage.MouseMove;
begin
  if Assigned(FOnMouseMove) then FOnMouseMove(Self);
end;

end.

首先，動態生成的控件自己必須要有onmousemove事件，如果沒有，要自己代碼實現；
然後，因為是動態生成的，所以，沒有生成之前必須防止訪問出錯。
最後，將動態生成控件的定義事件指向你寫的事件/過程。

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, jpeg;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var image1:TImage;
begin
  image1:=TImage.Create(Self);
  image1.Parent:=Self;
  image1.Name:='image1';
  image1.Height:=105;
  image1.Width:=105;
  image1.Picture.LoadFromFile('D:\临时目录\图片资源\JPG格式\风景\View1.jpg');
  image1.OnMouseMove:=Image1MouseMove;
end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Label1.Caption:=IntToStr(X);
  Label2.Caption:=IntToStr(Y);
end;

end.
这样就可以了,我自己写的例子,楼主看看吧.关键是知道原理.

给你写了一个简单的，新建一个项目，在窗口上放一个edit控件，当然自己创建的控件要手动释放，我这里只是示范没释放,写成按扭的了，Image中这个一样。

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    procedure CustomMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.CustomMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Edit1.Text := IntToStr(X);
end;

procedure TForm1.FormShow(Sender: TObject);
var
  MyButton:TButton;
begin
  MyButton:=TButton.Create(self);
  MyButton.Left :=100;
  MyButton.Top := 100;
  MyButton.Parent := self;
  MyButton.OnMouseMove := CustomMouseMove;
  MyButton.Visible := True;
end;

end.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,ExtCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
    procedure ImageMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  imgTemp:TImage;

implementation

{$R *.dfm}
procedure TForm1.ImageMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
begin
    Label1.Caption:=IntToStr(X)+':'+IntToStr(Y);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
    imgTemp:=TImage.Create(Owner);
    imgTemp.Parent:=Form1;
    imgTemp.Left:=10;
    imgTemp.Top:=10;
    imgTemp.Width:=100;
    imgTemp.Height:=100;
    imgTemp.OnMouseMove:=ImageMouseMove;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
    imgTemp.Free;
end;

end.

呵呵，高手都被喊出来了，楼主如果还没搞定，大家就要吐血了

还真以为是什么高难度问题,本想进来学习的……

结果-_-!

希望你不要收了答案就走人!!!
CSDN最鄙视这种人了

自己定义一个事件，然后将你动态创建的窗体onmousemove事件指向它

每天穿同一条三角裤的是要注意一下这个问题。

谢谢各位了，
为自己的贴顶一下，马上结贴