Есть встроенная опция контроля, но только на одно undo, если это то что требуется, то
| Код |
'в general
Private Const EM_UNDO As Long = &HC7&
Private Declare Function SendMessage Lib "user32" _
Alias "SendMessageA" _
(ByVal hWnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
lParam As Any) As Long
'при поднятии формы
SendMessage(Text1.hwnd, EM_UNDO, 0, ByVal 0)
|
Если требуется как в word-e, без ограничения, то пожалуй надо писать stack и соотвествующим образом обрабатывать события, т.е. все писать ручками. |
А вот как реализовать по подробнее, если можно...