溫馨提示×
您好，登錄后才能下訂單哦！
點擊 登錄注冊 即表示同意《億速云用戶服務條款》
您好，登錄后才能下訂單哦！
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進行舉報，并提供相關證據，一經查實，將立刻刪除涉嫌侵權內容。
