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

[afxe]

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

Código Delphi [-]
 
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;