Change Cursor when passing over a table

[fara2000]

Hello
How can I change the cursor to crHandpoint when the mouse is over a table inside richviewedit page???
When the mouse cursor leaves the table the cursor return to default!
Thanks in advance

[Sergey Tkachenko]

Use OnGetItemCursor event:

Code: Select all

procedure TForm1.rveGetItemCursor(Sender: TCustomRichView;
  RVData: TCustomRVData; ItemNo: Integer; var Cursor: TCursor);
begin
  if (RVData.GetItem(ItemNo) is TRVTableItemInfo) or (RVData.GetRVData is TRVTableCellData) then
    Cursor := Sender.Style.JumpCursor;
end;

[fara2000]

Yes it works when the mouse is over the table.
I still need to get the original cursor back when leaving the table!!
What do you think?