mycontroller.pas

来自「一整套的源代码」· PAS 代码 · 共 23 行

unit MyController;

interface

uses
  Forms,
  MyView,
  UView, UAdapterDataView, MyFactory;

type
  IController = interface
    procedure AppendView(View: TView);
    procedure DeleteView(View: TView);
    procedure DeleteAllView;
    function GetViewCount: Integer;
    function GetActiveView: TView;
    function GetModifiedView: TAdapterDataView;
  end;

implementation

end.