...UNDO in memo fields?

Author: Simon Grossenbacher
Homepage: http://www.swissdelphicenter.ch

Category: VCL

// You can undo with the following code:
// So kann man den letzten Bearbeitungsschritt rückgängig machen:

Memo1.Perform(EM_UNDO, 0, 0);

// To Detect if Undo imformation is available:
// Testen, ob eine Rückgängig-Operation möglich ist:

ButtonUndo.Enabled := Memo1.Perform(EM_CANUNDO, 0, 0);
ButtonUndo.Enabled := Memo1.CanUndo; // in Delphi 4 or higher

// To clear the Undo buffer:
// Den Textpuffer für Rückgängig löschen:

Memo1.Perform(EM_EMPTYUNDOBUFFER, 0, 0);

Memo1.ClearUndo; // in Delphi 4 or higher

 

printed from
www.swissdelphicenter.ch
developers knowledge base