我从TImage继承了一个类,想在类内部自动处理MouseDown事件,定义如下:
protected
    procedure MouseDown(Button: TMouseButton; Shift: TShiftState;
      X, Y: Integer); override;
编译时出现如下错误:
Declaration of 'MouseDown' differs from previous declaration我查了TImage的源码,只在TControl类中找到相关的定义
protected
    procedure MouseDown(Button: TMouseButton; Shift: TShiftState;
      X, Y: Integer); dynamic;
完全一样的,到底我的MouseDown定义有什么问题?
===========================
类似的,定义OnMouseDown事件的处理函数:
    procedure MyMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
在初始化时设置:self.OnMouseDown := MyMouseDown;
确出现以下错误信息:
Incompatible types: 'QControls.TMouseButton' and 'MyImage.TMouseButton'
'MyImage.TMouseButton'从何而来,我郁闷了....
===========================
引用的单元如下:
uses Classes, Types, Controls, QExtCtrls;