Code: Select all
if not DBRichViewEdit1.CanChange then
exit;
Changed := 0;
DBRichViewEdit1.RVData.EnumItems(EnumItemsProc, Changed, '');
if Changed<>0 then begin
DBRichViewEdit1.Change;
MyDataSet.Post;
end;
Code: Select all
if not DBRichViewEdit1.CanChange then
exit;
Changed := 0;
DBRichViewEdit1.RVData.EnumItems(EnumItemsProc, Changed, '');
if Changed<>0 then begin
DBRichViewEdit1.Change;
MyDataSet.Post;
end;