FR: Como saber si se ha scrolleado en un onClickObject?

[afxe]

Hola a todos.

Estoy rompiéndome el coco con lo siguiente:

He usado un frxPreview (FastReport 4.0 y D7) para visualizar unos registros de una tabla con los cual interacciono usando el evento OnClickObject del frxReport. Cuando se pulsa un Click grabo en una tabla el contenido del FrxMemo clickeado, fácil.... pero cuando intento usar el ratón para hacer scroll (picando sobre el preview, no sobre el scrollbar) pasa que en cuanto levanto el botón del mouse se me lanza el evento. Necesitaría saber si el click se ha usado para scrollear y no para seleccionar ¿Se os ocurre algo?

Mil gracias.

[afxe]

He encontrado la forma... lo comunico por si alguien se le ofrece:



procedure TFrmM_Preventas.frxMiPreviewMouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
frxMiPreview.Tag := frxMiPreview.GetTopPosition;
end;

procedure TFrmM_Preventas.frxMiReportClickObject(Sender: TfrxView;
Button: TMouseButton; Shift: TShiftState; var Modified: Boolean);
var
n : Integer;
begin
if frxMiPreview.Tag = frxMiPreview.GetTopPosition then begin
n := (Sender as TfrxView).Tag;
if n > 0 then CargaArticulo(n);
end;
end;