QuantumGrid - como fazer com que o duplo-clique funcione no cxGrid

Este exemplo foi desenvolvido para funcionar com o cxGrid, nao é necessario aplicar

isto para o dbgrid e tampouco funcionará com ela.

Como fazer com que o duplo-clique funcione no cxGrid (enjambre, pura enjambrera)

type

  TMousePosition = record

    X: Integer;

    Y: Integer;

  end;

var

  PosMouse : TPoint;

procedure TForm1.GridDblClick(Sender: TObject);

begin

  // atenção, no Delphi 7 o numero abaixo era 102

  if Grid.ViewInfo.GetHitTest(PosMouse.X, PosMouse.Y).HitTestCode <> 107 then Exit; 

  Showmessage('Oi! Fui duplamente clicado...')

end;

procedure TForm1.GridMouseMove(Sender: TObject; Shift: TShiftState; X,

  Y: Integer);

begin

  PosMouse.X:= X;

  PosMouse.Y:= Y;

end;