commandlist.pas

Delphi利用MVC开发的典型例子

unit commandlist;

interface

const
  CMD_SHOW_ABOUT = 'show about form';

  CMD_REQUIRE_INDEXTREE = 'ask for the index tree view';
  CMD_SHOW_INDEXTREE = 'show the index tree in main form';

  CMD_REQUIRE_FATHERVIEW = 'ask for the view of father';
  CMD_SHOW_FATHERVIEW = 'show the view of father';

  CMD_REQUIRE_MOTHERVIEW = 'ask for the view of mother';
  CMD_SHOW_MOTHERVIEW = 'show the view of mother';

  CMD_REQUIRE_CHILDRENVIEW = 'ask for the view of children';
  CMD_SHOW_CHILDRENVIEW = 'show the view of children';

  CMD_NODE_SELECT = 'a node was selected';
  CMD_CLEAR_SELECTION = 'clear all selection';


  //this command define for both father and mother
  CMD_ALL_STOP_DRAWING = 'Stop drawing on the wall!';
  //this command define for father
  CMD_DAD_PLAYGAME = 'Who wanna play football game with me?';

  //these commands define for mother
  CMD_MOM_NEWCLOTHES = 'Is my newly bought clothes fit me well?';
  CMD_MOM_LOVEME = 'Do you love me?';
  CMD_MOM_HEARD = 'Have you every heard?...';

  //these commands define for baby
  CMD_BABY_CHOCOLATE = 'I want chocolate';
  CMD_BABY_CARTOON = 'I want watch Cartoon';
implementation

end.