Здравствуйте уважаемые форумчане. Сразу оговорюсь, что я новичок в программировании, чтобы меня не очень забрасывали терминами.
Написал простенький тексовой редактор и вродебы все работает как положено за исключением неполностью функциональной кнопки Undo.
Например после вставки текста Memo1.Lines.add(DateToStr(Now)+' : '+TimeToStr(Now)); отмена действия недоступна. До конца не понимаю с чем это связано.
Уже много читал о сообщениях SendTextMessage(Memo1.Handle, EM_REPLACESEL, 1, s), но они у меня только копируют текст.
Вот такие две процедуры на данный момент
Код:
procedure TForm1.UndoActionExecute(Sender: TObject);
begin
Memo1.Undo;
end;
procedure TForm1.UndoActionUpdate(Sender: TObject);
begin
UndoAction.Enabled := Memo1.CanUndo;
end;
Админ: Пользуемся тегами при оформлении кода!
Если не сложно, приведите пожалуйста пример, как исправить ситуацию.
Заранее спасибо всем откликнувшимся.