我想扩展TSpeedButton使其能够有SetFocus属性，请问得怎么办呢？

[delphi2java]

我想扩展TSpeedButton使其能够有SetFocus属性，请问得怎么办呢？

===================================
TSpeedButton没有SetFocus方法，在TWinControl中含有SetFocus方法，我想把TWinControl.SetFocus移到TSpeedButton中，使TSpeedButton拥有TSpeedButton.SetFocus方法，请问得怎么继承？

[delphi2java]

这个问题没办法解决吗？

没人理？自己UP了..

[SydPink]

不可能!

TSPeedButton不是TWinControl的子类.没有HANDLE,也就无法聚焦.
类似功能的button你只能从TCustomButton或者从TCUstomControl继承.

[SydPink]

TMySpeedBtn=(TCustomControl)
pvivate
procedure WMSETFOCUS(var msg:TMessage);message WM_SETFOCUS;
procedure WMKILLFOCUS(var msg:TMessage);message WM_KILLFOCUS;
procedure CMMOUSEENTER(var msg;TMessage);message CM_MOUSEENTER;//鼠标进入
procedure CMMOUSELEAVE(var msg;TMessage);message CM_MOUSEELEAVE;//鼠标退出

protected
procedure paint;override;
........
procedure TMySpeedBtn.Paint;
begin
with Canvas do
begin
//TCustomControl 有Canvas,你直接画外观就是了.
end;
end;
........

[miky]

不难办，把Vcl关于SpeedButton的那些代码Copy出来，新做个unit;
然后把TSpeedButton的父类改掉，改成上面几位所说的TCustomControl，TPanel之类的。
然后运行调试，一会工夫就做好了。

[blazingfire]

好笑！
用TBitBtn不就OK了吗
SpeedButton不是从TGraphicControl下继承的吗？

[delphi2java]

blazingfire：这只是一个例子。我是想写组件，不是想使用组件。想难想像你是两颗星星的前辈！！