Из Clipboard пропадает(для RichEdit) текст

[Valio]

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

Дано:
На форме компонент TRichEdit и есть массив TStringList. Есть кнопка и есть глобальная переменая Position которая определяет номер элемента массива.

Это работает следующим образом:
Юзер пишет в TRichEdit свои мысли. Надоело ему... Жмёт кнопку.
- сохранение TRichEdit в массив как элемент с номером Position.
- Очищаем РичЕдит.
- Position + 1
- Загружаем в РичЕдит данные из массива по новому номеру.
Юзер снова пишет свои мысли и т.д.

Кароче юзер заполняет массив своими мыслями и может перемещаться по массиву благодаря процедуре управления передавая номер куда хочет перейти.

Проблема:
Если выделить в РичЕдите текст, нажать Ctrl+C и перейти к редактированию другого элемента массива, то вставить в РичЕдит уже не удаётся.
В случае Ctrl+X всё работает как надо.

Этот текст можно вставить кудаугодно, но только не в РичЕдит.

Какие соображения?

Вообщем запутано как-то получилось.

[Человек_Борща]

У RichEdit есть такие методы:

Derived from TCustomEdit
CopyToClipboard
CutToClipboard
PasteFromClipboard

[Valio]

Так дело в том что как раз PasteFromClipboard не отрабатывает.

Но если редактировать текст в пределах одного текста то все работает, при этом даже если перейти к другому тексту, то уже можно вставлять

[Valio]

Ну вот я из своей программы сделал тестовый пример чтоб показать как это всё происходит.

Проделайте следующии манипуляции:
1. Запустить программу.
2. Выделить в RichEdit часть слова "Заготовка" и нажмите Ctrl+C.
3. Нажмите в "Лист операций" операцию "Технический контроль".
4. Теперь попытайтесь вставить в RichEdit. Ничего не получилось.
5. Попытайтесь теперь вставить в Edit который выше. Получается.
6. Аналогично можно встатвить куда угодно. Но только не в тот РичЕдит.

Интересный момент:
1. Запустить программу.
2. Выделить в RichEdit часть слова "Заготовка" и нажмите Ctrl+C. Теперь в томже RichEdite нажмите Ctrl+V. Работает.
3. Нажмите в "Лист операций" операцию "Технический контроль".
4. Теперь попытайтесь вставить в RichEdit. Работает.

PS: программа использует ГОСТовские шрифты. Если что, установите.

[Человек_Борща]

Оно вставлет, но вставлят пустую строку. (Там реализация через SendMessage)
В любое другое приложение виндов вставляется норм.

Чтобы исправить сделайте свою реализацию ctrl+x,ctrl+c,ctrl+v

Попробуйте, обьект Clipboard (Модуль Clipbrd);

Обьявление в var не нужно. посто

Clipboard.Open;
Clipboard.AsText:=aStr; //помещаем в буфер строку как текст
ClipBoard.Close;

[Valio]

Это реализовать то не проблема, хотелось бы узнать причину, чтоб с ней бороться целенаправленно. Бороться с следствием не очень грамотно.

Пока реализовано так, а дальше посмотрим.

// Обрабатываем Ctrl+V
Begin
If ((Key = ord('V')) And (ssCtrl In Shift)) Then
  Begin
    If Not Clipboard.HasFormat(CF_TEXT) Then ClipBoard.Clear;
    REProcess.SelText := ClipBoard.AsText;
    Key := 0;
  End;
// End
End;