Mega Code Archive

 

Categories / Delphi / VCL

 

UNDO in memo fields

Title: UNDO in memo fields? // 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