一款狀態(tài)回放過(guò)去時(shí)索引的設(shè)置

  procedure  TMainForm.AclonRectSelectoolExecute(Sender;Tobject);

     begin

       MapDetail.CurrentTool  := miRectSelectTool;

       sb.Panele[2].Text  := TAction(Sender).Hint;

    end

 簡(jiǎn)單地說(shuō)明狀態(tài)回放的一些功能所示：

       type

    ThistoryList  =  class(TList)

    private

       FHistoryinteger;     //過(guò)去時(shí)的索引

       procedure SetHistoryIndex(const  Value: Integer): //過(guò)去時(shí)索引設(shè)置

    protected

    public

       //通過(guò)SetHistoryIndex方法設(shè)置過(guò)去時(shí)的索引屬性

       property  HistoryIndex:Integer read FHistoryIndex write SethistoryIndex;

       function Add(Item: pointer): Integer;       //增加過(guò)時(shí)的索引

       procegure  Clear; override;                     //清空過(guò)去時(shí)的索引

       procedure  Delete(Index:  Integer);        //刪除過(guò)去的索引

       procedure  Insert(Index:  Integer;  Item:  Pointer);  //插入過(guò)去的索引

       function   Goback:  integer;

       function   GoForward:  integer;             //實(shí)現(xiàn)狀態(tài)后退

       function   GoForward:  integer              //實(shí)現(xiàn)狀態(tài)前朝

       constructor   Create ;                          //分類的構(gòu)造

     end