CxGrid 鼠标悬停

 Use Alt(用于悬停显示的窗体Form_alt.)

procedure TForm1.cxGrid1DBCardView1MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
Var
  AHitTest: TcxCustomGridHitTest;
  ATrackItem: TcxCustomGridTableItem;
  ATrackRec: TcxCustomGridRecord;
begin
   if   (X  +  Form_alt.Width)  >   SCREEN.WIDTH then
    Form_alt.Left : =   X  -  Form_alt.Width - 15
   else
    Form_alt.Left : =  X + 15 ;

   if   (Y  +  Form_alt.Height  +   180 )  >   SCREEN.HEIGHT then
    Form_alt.Top : =   Y  -  Form_alt.Height + 90
   else
    Form_alt.Top : =  Y + 110 ;
  AHitTest : =  (Sender  as  TcxGridSite).GridView.ViewInfo.GetHitTest(X, Y);
   if  AHitTest  is  TcxGridRecordCellHitTest then
  begin
    ATrackItem : =  TcxGridRecordCellHitTest(AHitTest).Item;
    ATrackRec : =  TcxGridRecordCellHitTest(AHitTest).GridRecord;
    Form_alt.PID : =  varToStr(ATrackRec.Values[ 0 ]);
    Form_alt.Show;
  end
   else
    Form_alt.Close;
end;