Designed Unit for TSpTBXFrame

SpTBXFrameDesignUnit.pas

unit SpTBXFrameDesignUnit;
{
  Designed Unit for TSpTBXFrame
}
interface

procedure Register;

implementation

uses Classes, WCtlForm, DesignIntf, ToolsApi, TntForms_Design, SpTBXFrameUnit;

type
  TSpTBXFrameWizard = class(TTntNewFormWizard)
  protected
    function ThisFormClass: TComponentClass; override;
  public
    function GetComment: AnsiString; override;
  end;

  TSpTBXFrameCustomModule = class(TWinControlCustomModule)
  public
    function Nestable: Boolean; override;
  end;

procedure Register;
begin
  RegisterCustomModule(TSpTBXFrame, TSpTBXFrameCustomModule);
  RegisterPackageWizard(TSpTBXFrameWizard.Create);
end;

{ TSpTBXFrameWizard }
function TSpTBXFrameWizard.ThisFormClass: TComponentClass;
begin
  Result := TSpTBXFrame;
end;

function TSpTBXFrameWizard.GetComment: AnsiString;
begin
  Result := 'Creates a new SpTBXFrame';
end;

{ TSpTBXFrameCustomModule }

function TSpTBXFrameCustomModule.Nestable: Boolean;
begin
  Result := True;
end;


end.