s2.form.ts2dialog.pas

来自「轉載的程序應用框架」· PAS 代码 · 共 44 行

unit S2.Form.TS2Dialog;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  S2.Form.TS2Form, S2.Model.TS2SystemObject;

type
  TS2Dialog = class(TS2Form)
  private
    SystemObject: TS2SystemObject;
  protected
    function GetSystemObject: TS2SystemObject;
  public
    constructor Create(Owner: TComponent; SystemObject: TS2SystemObject); virtual; 
    destructor Destroy; override;
  end;

implementation

{$R *.dfm}

{ TS2Dialog }

constructor TS2Dialog.Create(Owner: TComponent; SystemObject: TS2SystemObject);
begin
  inherited Create(Owner);
  Self.SystemObject := SystemObject;
end;

destructor TS2Dialog.Destroy;
begin
  SystemObject := nil;
  inherited;
end;

function TS2Dialog.GetSystemObject: TS2SystemObject;
begin
  Result := SystemObject;
end;

end.