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
免责声明：本站发布的内容（图片、视频和文字）以原创、转载和分享为主，文章观点不代表本网站立场，如果涉及侵权请联系站长邮箱：is@yisu.com进行举报，并提供相关证据，一经查实，将立刻删除涉嫌侵权内容。
