LPARAMETERS nButton, nShift, nXCoord, nYCoord Dimension laFred[4] Local lnLeft,lcClass This.Visible = .f. =aMouseObj(laFred) This.Visible = .t. lcClass = laFred[1].baseclass If Lower(lcClass) = 'column' Wait Window Eval(laFred[1].controlsource) nowait EndifThis will give you what you want without the grid getting focus...
*Container.MouseMove >LPARAMETERS nButton, nShift, nXCoord, nYCoord >store 0 to nWhere, nRelrow, nRelCol >with eval(this.tag) && Tag keeps something like 'thisform.grdMyGrid' > .GridHittest(nXCoord, nYCoord, @nWhere, @nRelRow, @nRelCol) > .ActivateCell(nRelRow, nRelCol) > wait window trans(eval(.Recordsource+'.'+varread())) nowait >endwith >Cetin