在组件中重载MouseMove()就行了
protected
procedure MouseDown(Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);override;procedure TImageVetricalScrollBar .MouseDown(Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
//////
Inherited;
end;
protected
procedure MouseDown(Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);override;procedure TImageVetricalScrollBar .MouseDown(Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
//////
Inherited;
end;
解决方案 »
- 油评“百字门”
- 如何 控制 excel 设置 冻结 行 或 冻结 列 ??????????????????? 急!!!!!!!!
- 请问高手们哪里有关于类的编写的书啊??
- delphi中如何取当前日期的对应上月日期?在线!!
- 我的这个想法如何实现?关于DELPHI+ASP的
- 请问怎么修改memo中的某一行的颜色????
- csdn.net这个网站是用哪几种开发工具开发的?
- 请教shell高手:怎样将 date +%C%y%m%d 的执行结果(20020709)赋给一个字符变量?
- TIME 时间传递问题
- 安装了一个软件后,卸载后,把BDE也给我卸载了,该如何恢复我的BDE。
- 如何让程序刚启动就自动隐藏
- 请教:关于Socket传输,接收文件流的问题(谢谢)
[Error] ImageVetricalScrollBar.pas(31): Declaration of 'MouseDown' differs from previous declaration
我想愿因可能是:MoverDown不是父类定义的方法,不能被重载。