Не срабатывает Undo в Memo при программном изменении текста в контроле

@Nanotronic · Регистрация: 07.06.2009

Студворк — интернет-сервис помощи студентам

Доброго дня, гуру!

Столкнулся со следующей проблемой:
1) есть на форме Memo1
2) если выделять/удалять/заменять текст в Memo1 при помощи клавиатуры, то всегда срабатывает Undo
3) если программно вставлять/удалять/заменять выделенный текст, то Undo перестает срабатывать.

Вот функция, которая вызывает при нажатии на кнопку на форме. Она должна заменять выделенный текст на новый.

C++
1
2
3
4
5
6
7
8
void __fastcall TForm1::time1Click(TObject *Sender)
{
 AnsiString incom, out;
 
     incom = Memo1->SelText;
     out = "time=|" + incom + "| ";
     Memo1->SelText = out;
}

Все шаманства с

C++
1
Memo1->Perform(EM_UNDO, 0, 0);

не помогают.
Если "ручками" на клавиатуре делаю операции с текстом, то состояния отлавливаются.

Вероятно, надо как-то в момент "программной" замены текста посылать сообщение об изменении выделенного текста.
Но ни черта не могу понять, как решить эту задачу.

Благодарю за помощь!

P.S.: остается только написать "костыли", которые будут хранить в памяти позицию последнего выделенного текста, сам текст и программировать всю эту логику.... Неужели нет других вариантов?
P.P.S.: последний раз программировал лет 10 назад. Сейчас появилась задача, где много рутины - решил облегчит себе труд. Все ок, но UNDO очень не хватает....

@volvo · 03.04.2013, 20:00

Что характерно - после того, как отработал дельфийский код:

Delphi
1
2
3
4
5
6
7
8
procedure TForm1.Button1Click(Sender: TObject);
var
  in_s, out_s : string;
begin
  in_s := Memo5.SelText;
  out_s := 'time=|' + Memo5.SelText + '| ';
  Memo5.Perform(EM_REPLACESEL, 1, LPARAM(PChar(out_s)));
end;

прекрасно откатывается назад через Undo. Билдера сейчас нет под рукой, чтобы проверить...

@Nanotronic · 03.04.2013, 20:27 **[ТС]**

Ух-ты

А вот этой константы "EM_REPLACESEL" я и не знал

Ушел проверять....

Добавлено через 10 минут
UI, благодарю тебя! Все работает.

Новые блоги и статьи Все статьи Все блоги /
Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .
Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .

@Nanotronic 32 / 0 / 0 Регистрация: 07.06.2009 Сообщений: 4
	03.04.2013, 20:27 [ТС]
	Ух-ты А вот этой константы "EM_REPLACESEL" я и не знал Ушел проверять.... Добавлено через 10 минут UI, благодарю тебя! Все работает. 0