<< Нажмите, чтобы показать Содержание >> TCustomRichViewEdit.OnCheckStickingItems

Позволяет «склеить» элементы документа.

type

  TRVStickingItemsEvent = procedure (Sender: TCustomRichViewEdit;

    RVData: TCustomRVData; FirstItemNo: Integer;

    var Sticking: Boolean) of object;

 

property OnCheckStickingItems: TRVStickingItemsEvent;

Это событие происходит перед вставкой чего-либо после элемента с номером FirstItemNo в RVData (если FirstItemNo = -1, вставка выполняется в начало RVData).

Присвойте Sticking = True, чтобы запретить эту вставку.

Это событие происходит после выполнения всех стандартных проверок возможности склейки (см. свойство Protection текстового стиля).