菜鸟，请教，这事件应该如何赋？

Question

现情况如下：
1.首先，我先从TQuickRep继承了一些组件，包括：TQRLabel、TQRDBText、  TQRExpr、TQRShape等,并published了OnMouseMove、OnMouseDown、   OnMouseUp
2.下面，想写一个公共过程，对这些组件循环赋自定义事件
  procedure(.............)//形参应该怎么写呢？
  begin
    OnMouseDown := MyMouseDown;
    OnMouseMove := MyMouseMove;
    OnMouseUp := LeftMouseUp;
  end;不知应该如何赋这些事件？请指教~

Answer 1

你可以查看OnMouseDown的原型声明，普通控件的OnMouseDown声明是TMouseEvent
假设是ListView的，那么这样写
procedure SetMouseEventProcedures(AMouseDown,AMouseMove,AMouseUp:TMouseEvent);
beginend;不知道TQuickRep和ListView是不是一样，你可以试一下，如果不是的话，查一下其声明

Answer 2

<<ChenJIM1981非常感谢
没有成功，菜鸟，请指教~不胜感激~

Answer 3

procedure SetMouseEventProcedures(AMouseDown,AMouseUp:TMouseEvent;AMouseMove:TMouseMoveEvent);