Var
AUndoPicture:TPicture;
.....
Function BeforDraw(..)
begin
AUndoPicture.assign(image1.picture.assign);
end;
Function Undo(..)
begin
image1.picture.assign(AUndoPicture);
end;
或者你在Image上面放一个PaintBox先画到PaintBox上去,如果继续修改图像,就把刚刚的
那一笔画到Image上,如果Undo就不动Image直接PaintBox刷新,实现多级Undo可以管理一
个UndoPicture的列表。