Jay --

What is it that you're putting in that spot where "the record is available temporarily"? I see the spot for it ... but what are you doing there?

And ... the code you're seeing there is what I've been using for a loooooooong time. Can you post just that block of code, so I can see exactly what you've implemented? Perhaps you've made an inadvertent change, or I eliminated something ... who knows?



>It does. Would you mind taking a look at my other post "Allowed DO nesting..." if you get a chance? I'm getting this error when I put stuff in the place where it says to put it when the record is available temporarily.
>
>>Jay --
>>
>>it is the number of the column that you want to have temporarily activated ... normally one.
>>
>>In my usage, I am trying to bring up a custom tooltip. The column selected should be one where there is no tooltip.
>>
>>Hope this helps.
>>
>>
>>>I'm playing around with this code and you have this line in the code:
>>>

>>>* temporarily activate first cell, so that .RelativeRow makes sense
>>>			lnColno = .Columns(.c_ActivateCellColumn).ColumnOrder
>>>

>>>What is c_ActivateCellColumn?
>>>
>>>
>>>>John --
>>>>
>>>>I have the following for each column in my grid.
>>>>
>>>>I hope this works; I've thrown a lot of code that's clearly irrelevant and distracting -- hopefully that's all I threw away.
>>>>

>>>>Procedure MouseMove(x1,x2,x3,x4)
>>>>	Local nXCoord_In, nYCoord_In, lnColno, lnDiff, loGrid, nWhere_Out, nRelRow_Out, nRelCol_Out
>>>>	Local nView_Out
>>>>
>>>>	With This.Parent
>>>>
>>>>		* find out what row we're over
>>>>		nXCoord_In = Mcol(Wontop(),3)
>>>>		nYCoord_In = Mrow(Wontop(),3)
>>>>		Store 0 To nWhere_Out , nRelRow_Out , nRelCol_Out , nView_Out
>>>>		.GridHitTest(nXCoord_In, nYCoord_In, @nWhere_Out, @nRelRow_Out, @nRelCol_Out)
>>>>
>>>>		* over a cell, but not the same as last time
>>>>		If nWhere_Out = 3 And nRelRow_Out # This.h_DynToolTipRow
>>>>
>>>>			* temporarily activate first cell, so that .RelativeRow makes sense
>>>>			lnColno = This.Parent.Columns(This.Parent.c_ActivateCellColumn).ColumnOrder
>>>>			lnColno = lnColno + Iif(This.ColumnOrder = lnColno, 1, 0) - .LockColumns
>>>>			If .RelativeRow = 0 Or .RelativeColumn # lnColno
>>>>				.SetFocus()
>>>>				.ActivateCell(Max(1, .RelativeRow), lnColno)
>>>>			Endif
>>>>
>>>>			* move to the record we're interested in
>>>>			lnDiff = nRelRow_Out - .RelativeRow
>>>>
>>>>			Try
>>>>				Skip (lnDiff) In (.RecordSource)
>>>>			Catch
>>>>
>>>>			EndTry
>>>>			
>>>>			*******************************************************
>>>>
>>>>			*    temporarily on the right record ...
>>>>			*    so insert code to do something here ...
>>>>			
>>>>			*******************************************************
>>>>
>>>>			Skip (-lnDiff) In (.RecordSource)
>>>>			This.h_DynToolTipRow = nRelRow_Out
>>>>		Endif
>>>>	Endwith
>>>>Endproc
>>>>
>>>>
>>>>Procedure MouseLeave(nButton, nShift, nXCoord, nYCoord)
>>>>	This.h_DynToolTipRow	= 0
>>>>	Try
>>>>		Thisform.ShowTip()
>>>>	Endtry
>>>>Endproc
>>>>

>>>>
>>>>>Is there still no way in vfp to get a grid to be aware of the mouse pointer over it? I want to be able to run the mouse over cells in a column and details from the record to be displayed elsewhere on the form, without each cell having to get clicked on, or getting focus. Thanks!