組件問題

Question

有的，在\Source\Vcl\buttons.pas里有声明的

Answer 1

继承某些方法即可。
如：constructor Create(AOwner: TComponent); override;...implementation
constructor TMyBitBtn.Create(AOwner: TComponent); override;
begin
  inherited Create(AOwner);
  Font.Name := 'fixdsys';
end;

Answer 2

你要用申明属性，在published中加入property Font,我编了一个继承TSpeedButton的控件，其实他们差不多，你要不要我的源代码。