cstrategy.pas

来自「delphi深度探索第二版随书光盘所附内容」· PAS 代码 · 共 52 行

{-----------------------------------------------------------------------------
 Unit Name: CStrategy
 Author:    hubdog(陈省)
 Email:     [e-mail]
 Purpose:   演示策略模式在VCL中的应用
 History:
            2003-6-10 创建本单元
-----------------------------------------------------------------------------}


unit CStrategy;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdActns, ActnList, StdCtrls, Menus;

type
  TForm1 = class(TForm)
    mm1: TMainMenu;
    edt1: TEdit;
    actlst1: TActionList;
    ec1: TEditCut;
    ec2: TEditCopy;
    ep1: TEditPaste;
    es1: TEditSelectAll;
    eu1: TEditUndo;
    ed1: TEditDelete;
    miN1: TMenuItem;
    miCut1: TMenuItem;
    miCopy1: TMenuItem;
    miDelete1: TMenuItem;
    miPaste1: TMenuItem;
    miSelectAll1: TMenuItem;
    miUndo1: TMenuItem;
    lst1: TListBox;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

end.