TRichView.OnRVMouseUp

Происходит, когда пользователь отпускает кнопку мыши, когда указатель мыши находится над документом.

type

TRVMouseEvent = Procedure(Sender: TCustomRichView;

Button: TMouseButton; Shift: TShiftState;

ItemNo, X, Y: TRVCoord) of object;

property OnRVMouseUp: TRVMouseEvent;

Аналогично событию OnMouseUp, но передаёт информацию о номере элемента документа под указателем мыши.

ItemNo – номер элемента под указателем мыши, или -1 если такого нет.

Событие даёт возможность обработать отпускание левой, правой и средней кнопок мыши, в комбинации с нажатием клавиш-модификаторов. Клавиши-модификаторы – это Shift , Ctrl и Alt . X и Y – координаты в клиентской области окна Sender.

При отпускании над таблицей параметры этого события содержат номер элемента (ItemNo) этой таблицы в корневом документе, даже если пользователь отпустил кнопку над элементом внутри этой таблицы.

Используйте следующую процедуру, если хотите узнать элемент точно:

procedure TForm1.MyRichViewMouseUp(Sender: TCustomRichView;

Button: TMouseButton; Shift: TShiftState;

ItemNo, X, Y: TRVCoord);

var LRVData: TCustomRVFormattedData;

LItemNo, LOffs: Integer;

pt: TRVCoordPoint;

begin

pt := MyRichView.ClientToDocument(Point(X,Y));

if not MyRichView.GetItemAt(pt.X, pt.Y, LRVData, LItemNo, LOffs,

True) then

exit;