由代码创建的Image组件的OnMouseMove事件该如何写？

[程晨c]

由代码创建的Image组件的OnMouseMove事件该如何写？
image组件是在unit单元（不带窗体的unit单元）中由程序创建的

[ZyxIp]

你自己定义的方法 procedure TMyUnit.OnMouseMove(sender:Tobject;x,y:integer ) begin //要执行的事件 end; image.OnMouseMove:=你自己定义的方法

[程晨c]

引用 1 楼 ZyxIp 的回复:

你自己定义的方法 procedure TMyUnit.OnMouseMove(sender:Tobject;x,y:integer ) begin //要执行的事件 end; image.OnMouseMove:=你自己定义的方法

这样会报错的

[ccclient]

自定义的方法应放在类里

type
  TM=class
    procedure procx(Sender: TObject; Shift: TShiftState; X,Y: Integer);
  end;
var
  nM:TM;

implementation

procedure tm.procx(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  ShowMessage(IntToStr(x));
end;


procedure dy();
begin
  img1.OnMouseMove:=nM.procx;
end;