TRichView.com

Code: Select all

procedure TForm3.RichViewEdit1CaretMove(Sender: TObject);
begin
  // showing when the caret is in table cell
  RichViewEdit1.SmartPopupVisible := RichViewEdit1.InplaceEditor <> nil;
  // this cell can be get as:
  //  RichViewEdit1.TopLevelEditor.RVData.GetSourceRVData as TRVTableCellData
end;

Code: Select all

const WM_BACKTOTABLE = WM_USER+1;

  TfrmNoteList = class(TForm)
   ...
    Moving: Boolean;
    procedure WMBackToTable(var Msg: TMessage); message WM_BACKTOTABLE;
   ...
  end;


procedure TfrmNoteList.rveCaretMove(Sender: TObject);
begin
  if not Visible or Moving then
    exit;
  if (rve.InplaceEditor=nil) and not (rvstCreatingInplace in rve.RVData.State) then begin
    PostMessage(Handle, WM_BACKTOTABLE, 0, 0);
    exit;
  end;
  if rve.InplaceEditor=nil then
    exit;
  Cell := rve.TopLevelEditor.RVData.GetSourceRVData as TRVTableCellData;
  ItemNo := rve.TopLevelEditor.CurItemNo;
  Offs := rve.TopLevelEditor.OffsetInCurItem;
end;

procedure TfrmNoteList.WMBackToTable(var Msg: TMessage);
var RVData: TCustomRVFormattedData;
begin
  if not Visible or (rve.InplaceEditor<>nil) or (Cell=nil) then
    exit;
  Moving := True;
  try
    RVData := Cell.Edit as TCustomRVFormattedData;
    RVData.SetSelectionBounds(ItemNo, Offs, ItemNo, Offs);
  finally
    Moving := False;
  end;
end;

Code: Select all

if RichViewEdit1.InplaceEditor <> nil then
  exit; // the caret is inside a table
if not (RichViewEdit1.GetCurrentItem is TRVTableItemInfo) then
  exit; // the caret is not near the table
if RichViewEdit1.OffsetInCurItem = 0 then
  <before table>
else
  <after table>