s2.view.is2view.pas

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

unit S2.View.IS2View;

interface

uses
  S2.Model.TS2Model, S2.Tools.TS2Object;

type
  IS2View = interface
    function GetCaption: string;
    function GetModel: TS2Model;
    function IsReadOnly: Boolean;
    procedure CloseView;
    procedure OpenView(O: TS2Object);
    procedure RefreshView;
    procedure SetModel(Model: TS2Model);
  end;

implementation

end.