godmanform.pas

Nicesoft ERP 是新一代智能型 ERP 系统

unit GodmanForm;

interface

uses
  Forms, SysUtils, Classes, Windows;

type
  TGodmanForm = class(TForm)
  protected
    constructor GodmanCreate(AOwner: TComponent); virtual;
  public
    constructor Create(AOwner: TComponent); override;
  end;

implementation

{ TGodmanForm }

constructor TGodmanForm.Create(AOwner: TComponent);
begin
  raise Exception.Create('不允许调用该方法');
end;

constructor TGodmanForm.GodmanCreate(AOwner: TComponent);
begin
  inherited Create(AOwner);
end;

end.