godmanform.pas

来自「企业智能(ERP)管理系统」· PAS 代码 · 共 31 行

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.