我想做一个控件,继承自TSpeedButton,想去掉TSpeedButtonMouseEnter时凸出和MouseDown凹下的效果一个网友帮我解决了去掉凸出效果的问题,但是MouseDown凹下的问题还未解决,
请大家帮帮忙
unit foxSpeedButton;interfaceuses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Buttons;type
TfoxSpeedButton = class(TSpeedButton)
private { Private declarations }
FOnMouseDown: TMouseEvent; procedure CMMouseEnter(var Message: TMessage); message CM_MOUSEENTER; protected
{ Protected declarations }
procedure MouseDown(Button: TMouseButton; Shift: TShiftState;
X, Y: Integer); override;
public
{ Public declarations }
published
{ Published declarations }
end;procedure Register;implementationprocedure Register;
begin
RegisterComponents('Samples', [TfoxSpeedButton]);
end;
procedure TfoxSpeedButton.CMMouseEnter(var Message: TMessage);
beginend;procedure tfoxSpeedButton.MouseDown(Button: TMouseButton; Shift: TShiftState;
X, Y: Integer);
begin//这里的代码该怎么写???????????????????????end;
end.
请大家帮帮忙
unit foxSpeedButton;interfaceuses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Buttons;type
TfoxSpeedButton = class(TSpeedButton)
private { Private declarations }
FOnMouseDown: TMouseEvent; procedure CMMouseEnter(var Message: TMessage); message CM_MOUSEENTER; protected
{ Protected declarations }
procedure MouseDown(Button: TMouseButton; Shift: TShiftState;
X, Y: Integer); override;
public
{ Public declarations }
published
{ Published declarations }
end;procedure Register;implementationprocedure Register;
begin
RegisterComponents('Samples', [TfoxSpeedButton]);
end;
procedure TfoxSpeedButton.CMMouseEnter(var Message: TMessage);
beginend;procedure tfoxSpeedButton.MouseDown(Button: TMouseButton; Shift: TShiftState;
X, Y: Integer);
begin//这里的代码该怎么写???????????????????????end;
end.
解决方案 »
- 项目忙完后,有段时间的轻闲,突然觉得目标消失了,自己也迷失了。
- 菜鸟提问!!!!
- 如何在程序中调用一个OLE对象时,传入指定的运行路径,而不是默认路径。
- 高手你就赶紧进来看一下!
- 关于QREPORT的RICHEDIT控件的行距设置问题??
- 怎么样用DBIMAGE来显示用ACCESS做后台数据库里的图片呢!急!。。。
- [急急急!!!各位大侠救命!!!]关于dataset只读不可修改的问题???
- 在QUICKREPORT中将PAGE改为横向且为自定义,这时无法显示页脚,而把纸张改为A3则能。为何?
- 请问各位!!
- 那位能告诉我 在哪里能下载到 Delphi 运行库和Vcl参考库!!!!!!
- ★★★书上的一个关于集合类型的搞笑用法!大家进来看看吧!
- 请各位在职的程序员大哥指点一下方向
用户看不到MouseDown属性,不就跟没有一样了不要认为这是偷懒,因为TSpeedButton没有TCostomSpeedButton类,所以也只能这样
《Delphi5开发人员指南》中也是这么推荐的
就不能显示按下去的图片了!!!!!
除非你不要从他继承
直接从Gripiphs继承好了