首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > .NET > .NET >

TImage的MouseDown与TControl的MouseDown有什么不同?解决思路

2012-03-13 
TImage的MouseDown与TControl的MouseDown有什么不同?我从TImage继承了一个类,想在类内部自动处理MouseDown

TImage的MouseDown与TControl的MouseDown有什么不同?
我从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;

[解决办法]
QExtCtrls -> ExtCtrls

热点排行