s2.view.ts2dataitemsview.pas

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

unit S2.View.TS2DataItemsView;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  S2.View.TS2DataView, S2.View.IS2DataItemsView;

type
  TS2DataItemsView = class(TS2DataView, IS2DataItemsView)
  public  // S2.View.IS2DataItemsView
    function GetCount: Integer; virtual;
    procedure ShowChildView; virtual;  
  end;

implementation

{$R *.dfm}

{ TS2DataItemsView }

function TS2DataItemsView.GetCount: Integer;
begin

end;

procedure TS2DataItemsView.ShowChildView;
begin

end;

end.