Rückgängig in Richedit ?

[thomas2009]

Hallo
ich verwende einen Richedit als Texteditor aber es gibt ein Problem und zwar wenn ich irgend einen Fehler mache beim Schreiben, dann kann erscheint die Option Rückgängig nicht im Kontextmenü
http://www.weaverslave.ws/data/ws/he...tmenu_text.jpg

Wie konnte man dies programmieren ?

[mkinzler]

Du müsstest dir die Änderungsschritte einzeln merken.

[toms]

Bei mir erscheint der Menüpunkt.

[Die Muhkuh]

Zitat:

Zitat von mkinzler

Du müsstest dir die Änderungsschritte einzeln merken.

RichEdit hat sowas doch schon eingebaut?

[mkinzler]

Er hat ja geschrieben, dass es bei ihm nicht funktioniert und gefragt, wie man so etwas programmieren könnte.

[DeddyH]

Bin mal wieder unter Linux unterwegs, aber gab es nicht so etwas wie eine AllowUndo-Property?

[thomas2009]

Zitat:

Zitat von Die Muhkuh

RichEdit hat sowas doch schon eingebaut?

Gibt es Versionen bei Richedit ? Wenn ja, dann wie kann ich meine version auslesen?
Ich verwende D7

[mkinzler]

In deinem Screenshot ist das Rückgängig doch zu sehen :gruebel:

[thomas2009]

Zitat:

Zitat von mkinzler

In deinem Screenshot ist das Rückgängig doch zu sehen :gruebel:

Das war nur ein Beispiel von Google-Bilder, damit man versteht, wasfür ein undo/Redo ich meine

[fkerber]

Hi!

Vielleicht hilft dir das weiter:
http://www.kasparsoft.de/UndoRedo/index.htm


Ciao, Frederic

[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