RichEdit Text Rückgängig und Widerherstellen

[CalganX]

Nein. Ich meinte damit fragst du ab, ob du was wiederherstellen kannst.
Dein Source müsste dann also insgesamt so aussehen:

Delphi-Quellcode:

// Text Rückgängig 
procedure TForm1.TB07Click(Sender: TObject); 
begin                                                                   
  if SendMessage(cxRichMemo1.Handle, EM_CANUNDO, 0, 0) <> 0 then
    SendMessage(cxRichMemo1.InnerMemo.Handle, EM_UNDO, 0, 0)
  else ShowMessage('Hier ist nichts mehr; EM_UNDO'); // zur Kontrolle!
end; 

// Text Wiederherstellen 
procedure TForm1.TB08Click(Sender: TObject); 
begin                                                                     if SendMessage(cxRichMemo1.Handle, EM_CANREDO, 0, 0) <> 0 then
    SendMessage(cxRichMemo1.InnerMemo.Handle, EM_REDO, 0, 0)
  else ShowMessage('Hier ist nichts mehr; EM_REDO'); // zur Kontrolle!
end;

Chris