SelText i Undo

po wykonaniu takigo kodu:
</delphi>
Memo1.SelText:=FormatDateTime('hh/nn/ss', Now);
Memo1.Modified:=True;
</delphi>

właściwość can undo = false i nie można cofnąc tej operacji! jak wstawiać tex do memo (zastępować itp) tak aby Undo działało?

Na twoim miejscu przerzuciłbym sie na RichEdit, jest o niebo lepsz i posiada wiecej funkcji.

ja nie mam najmniejszego zamiaru uzywać do tak prostego proga richedita.

prosze o więcej odpowiedzi

O ile mi wiadomo Memo nie posiada procedury "Undo" (za to richedit ma). Sprobuj tak:

SendMessage(Memo1.Handle, WM_UNDO, 0, 0);

Powinno dzialac.

O ile mi wiadomo Memo nie posiada procedury "Undo"

Najwidoczniej Ci zle wiadomo:)

SendMessage(Memo1.Handle, WM_UNDO, 0, 0);

Nie dziala;P

rozwiazanie:

var
  Str: String;
  I : Integer;
  H, M, S, Ms : Word;
begin
  DecodeTime(Now, H, M, S, Ms);
  Str := IntToStr(H) + '-' + IntToStr(M) + '-' + IntToStr(S);
  for I := 0 to Length(Str) do
    PostMessage(Memo1.Handle, WM_Char, Ord(Str[I]), 0);
  Memo1.Modified:=True;   
end;