一款狀態回放過去時索引的設定

procedure  tmainform.aclonrectselectoolexecute(sender;tobject);

begin

mapdetail.currenttool  := mirectselecttool;

sb.panele[2].text  := taction(sender).hint;

end簡單地說明狀態回放的一些功能所示：

type

thistorylist  =  class(tlist)

private

fhistoryinteger;     //過去時的索引

procedure sethistoryindex(const  value: integer): //過去時索引設定

protected

public

//通過sethistoryindex方法設定過去時的索引屬性

property  historyindex:integer read fhistoryindex write sethistoryindex;

function add(item: pointer): integer;       //增加過時的索引

procegure  clear; override;                     //清空過去時的索引

procedure  delete(index:  integer);        //刪除過去的索引

procedure  insert(index:  integer;  item:  pointer);  //插入過去的索引

function   goback:  integer;

function   goforward:  integer;             //實現狀態後退

function   goforward:  integer              //實現狀態前朝

constructor   create ;                          //分類的構造

end

一款狀態回放過去時索引的設定

procedure tmainform.aclonrectselectoolexecute sender tobject begin mapdetail.currenttool mirectselecttool sb.panele 2 text taction sender hint end簡單地說...

推薦一款網遊

三月王朝 也叫帝國霸略 挺不錯的，優點 20 多人約好晚上一起打都城，很帶勁。qq飛車採用了世界級的物理引擎physx，採納專業車手的建議，手感全面超越市場領先產品。qq飛車完全免費，qq號碼即可登陸。專為qq使用者設計的時尚的人物造型，爽快的漂移快感，帥哥與美女同在，速度與激情並存，帶你進入眩目的...

修正一款php webshell

if empty post newcontent ph4ckp v2.0 by pr0cess modified ph4ckp v2.0 modified operating system echo php os server name server ip server time server po...