Передать RTF-текст из одного RichEdit в другой без Clipboard-а

← →
Tack (2008-10-23 14:04) [0]

Подскажите, как проще всего вставить RTF-текст (возможно, с OLE-объектами) из одного RichEdit в текст другого RichEdit, не используя буфер обмена?

RTF из RichEdit-источника я кое-как получить могу, но вставить его в позицию курсора другого редактора уже сложно.

Работать на уровне тегов RTF как-то не хочется. Может есть какие-нибудь альтернативные методы?

← →
clickmaker © (2008-10-23 14:20) [1]

SaveToStream - LoadFromStream ?

← →
Tack (2008-10-23 14:25) [2]

LoadFromStream можно сделать в произвольное место RTF-текста? А как отобразить текущую позицию курсора в позицию RTF-тегов?

← →
Tack (2008-10-23 14:46) [3]

нашел способ.

Надо послать в RichEdit сообщение EM_SETTEXTEX.
В параметрах там будет указатель на запись
TSetTextEx = record Flags: DWORD; Codepage: UINT; end;
и указатель на ANSI-строку с RTF-последовательностью.

Константы не описаны, кстати, так что придется вручную накинуть:
EM_SETTEXTEX = WM_USER + 97; ST_SELECTION = 2; // для TSetTextEx.Flags

> Tack (23.10.08 14:46) [3]

> Надо послать в RichEdit сообщение EM_SETTEXTEX.

http://groups.google.com/group/borland.public.delphi.vcl.components.using/msg/63f022b24603fd65

> Константы не описаны, кстати, так что придется вручную накинуть:

Add richedit to your Uses clause

--
Regards, LVT.

Передать RTF-текст из одного RichEdit в другой без Clipboard-а Найти похожие ветки