可以从TForm继承来做组件吗?
就像TBitBtn这样:
{************************************************************************}
unit BitBtnEx;
interface
uses
Windows, Messages, SysUtils, Classes, Controls, StdCtrls, Buttons;
type
TBitBtnEx = class(TBitBtn)
private
{ Private declarations }
protected
{ Protected declarations }
public
{ Public declarations }
published
{ Published declarations }
end;
procedure Register;
implementation
procedure Register;
begin
RegisterComponents('Samples', [TBitBtnEx]);
end;
end.
{************************************************************************}
可以吗?