********一个自定义控件的问题*********(50分)

大家知道Speedbutton控件的caption默认值是空的,所以我想改变这个情况使得它的captoin项不为空,也就是当向窗体中加一个speedbutton,它的caption是speedbutton1,当加第2个speedbutton,它的caption是speedbutton2.......
请问如何实现,最好给出可用的原码,给出起作用的关键部分即可!

constructor TSpeedButton.Create(AOwner: TComponent);
begin
。。。
Inc(ButtonCount);
FCaption:='SpeedButton'+inttostr(ButtonCount);
end;
这样不行吗？

修改 BUTTONS.PAS
constructor TSpeedButton.Create(AOwner: TComponent);
begin
FGlyph := TButtonGlyph.Create;
TButtonGlyph(FGlyph).OnChange := GlyphChanged;
inherited Create(AOwner);
SetBounds(0, 0, 23, 22);
ControlStyle := [csCaptureMouse, csDoubleClicks];
ParentFont := True;
Color := clBtnFace;
FSpacing := 4;
FMargin := -1;
FLayout := blGlyphLeft;
FTransparent := True;
Inc(ButtonCount);
FCaption:='SpeedButton'+IntToStr(ButtonCount);
end;

然后再重新编译。

同意 zhihuali
这样一定能行，试试吧