udllfrmlist.pas

一个基于不需引擎的文件管理系统,使用了许多界面比较好的控件

unit uDllfrmList;

interface

uses Messages,Classes,Forms;

const
  WM_FreeListDll=WM_User+101;
  WM_FreeTxtDll=WM_User+102;

type
  TDllType=(alist,atext);

  TDllfrmList = class
    DllList:TList;
    DllTxt:TList;
    constructor create;
    destructor destroy;override;
  end;

  TDllfrm = class(TForm)
  private
    FID: integer;
    FDllType: TDllType;
    procedure SetDllType(const Value: TDllType);
    procedure SetID(const Value: integer);
  protected
    procedure InitData;virtual;abstract;
    procedure AfterInitData;virtual;abstract;
  public
    property ID:integer read FID write SetID;
    property DllType:TDllType read FDllType write SetDllType;
  end;

var
  DllfrmList: TDllfrmList;

implementation

{ TDllfrmList }

constructor TDllfrmList.create;
begin
  DllList:=TList.Create;
  DllTxt:=TList.Create;
end;

destructor TDllfrmList.destroy;
begin
  DllList.Free;
  DllTxt.Free; 
  inherited;
end;

{ TDllfrm }

procedure TDllfrm.SetDllType(const Value: TDllType);
begin
  FDllType := Value;
end;

procedure TDllfrm.SetID(const Value: integer);
begin
  FID := Value;
end;

end.