我从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;
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;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货