Rückgängig in Richedit ?

[toms]

Add a Standard Context (popup) Menu to Delphi's TRichEdit:
http://delphi.about.com/od/tmemotric...edit-popup.htm

[thomas2009]

Zitat:

Zitat von toms

Add a Standard Context (popup) Menu to Delphi's TRichEdit:
http://delphi.about.com/od/tmemotric...edit-popup.htm

Ich habe habe das Projeckt dort gedownloadet aber beim Kompilieren, bekomme ich
eine fehlermeldung, dass die Unit re_contextpopup fehlt

Delphi-Quellcode:

...
uses re_contextpopup;
...

Edit:
Ich habe folgenden Code gefunden :

Delphi-Quellcode:

procedure TForm1.Undo1Click(Sender: TObject);
begin
with Richedit1 do
  if HandleAllocated then
    SendMessage(Handle, EM_UNDO, 0, 0);
end;

procedure TForm1.Redo1Click(Sender: TObject);
begin
with Richedit1 do
  if HandleAllocated then
    SendMessage(Handle, EM_UNDO, 1, 0);
end;

Es geht mindestens einen Schritt zurück und einen Schritt vorne