Hallo Leute
habe noch ein kleines Problem mit dem Rückgängig und Wiederherstellen
vom Text im RichEdit
zur zeit verwende ich den folgenden Code
Delphi-Quellcode:
// Text Rückgängig
procedure TForm1.TB07Click(Sender: TObject);
begin
with cxRichMemo1 do
if HandleAllocated then SendMessage(cxRichMemo1.InnerMemo.Handle, EM_UNDO, 0, 0)
end;
// Text Wiederherstellen
procedure TForm1.TB08Click(Sender: TObject);
begin
with cxRichMemo1 do
if HandleAllocated then SendMessage(cxRichMemo1.InnerMemo.Handle, EM_REDO, 0, 0)
end;
bin aber mit dem Ergebnis leider nicht ganz zufrieden.
Beim der Funktion rückgängig wird leider nur ein schritt gemacht.
Gibt es eine Möglichkeit das man mehrere Schritte zurück gehen kann ?
Wenn ja wie währe ich für einen Tipp sehr dankbar.
Mit Grüssen
Tau
[edit=Daniel B]Delphi-Tags korrigiert. Mfg, Daniel B[/edit]