about Insert Control

[iambeijing086]

I Insert some TSRVCheckBox on SRichViewEdit page

and my question is:

How to disable delete these controls?
that means forbid delete these control by press backspace key or delete key.
thanks.

[Sergey Tkachenko]

You can set rvepDeleteProtect property:
This code inserts delete-protected checkbox:

Code: Select all

  with SRichViewEdit1.ActiveEditor.TopLevelEditor do begin
    BeginUndoGroup(rvutInsert);
    SetUndoGroupMode(True);
    if InsertControl('', CheckBox, rvvaAbsMiddle) then
      SetCurrentItemExtraIntProperty(rvepDeleteProtect, 1, True);
    SetUndoGroupMode(False);
  end;

(but it quite strange to insert as an editing operation a control that cannot be deleted as an editing operation.

[iambeijing086]

thanks very much. it's ok