How to delete a TRVTableItemInfo from TRichView?

[wolf1860]

TRichView can not DeleteSelection?
procedure DeleteTable(rve: TCustomRichViewEdit; table: TRVtableitemInfo);
var
RVData: TCustomRVData;
ItemNo: Integer;
begin
RVData := table.Cells[0, 0].GetAbsoluteParentData;
ItemNo := table.GetMyItemNo;
// Table is the ItemNo-th item in RVData.
RVData := RVData.Edit;
TCustomRVFormattedData(RVData).SetSelectionBounds(ItemNo, 0, ItemNo, 1);
rve.DeleteSelection;
end;

[Sergey Tkachenko]

DeleteSelection is an editing operation, so it is available only in editor.

In TRichView, you can use DeleteItems method.

[wolf1860]

I insert some controls to the cells, and deleteItems does not work. What's wrong with the code below?

var
table: TRVTableItemInfo;
ItemNo: Integer;
begin
table := FindTable(richView1.RVData, 'mytest1');
ItemNo := table.GetMyItemNo;
richView1.DeleteItems(ItemNo,1);
end;

[Sergey Tkachenko]

Call richview1.Format after DeleteItems.

[wolf1860]

Thank u!