Find Co-Ordinates of selected cell in a grid

[TheBionicOrange]

I have a grid where the cells in the last column are editable.

When the user selects a cell in the end column I call up a small form, where they input a date.
What I want to do is have the form appear directly over the active cell.

Obviously the active cell could be anywhere on a vertical plane within the constraints of the grid.

Has anyone ever come up with some clever algorithm whereby you can set the .Top and .Left properties of the form appearing over the grid in the right place, i.e. over the active cell ?

I'm playing arund at the moment but one minute it works and then on a different cell it works not so well, so I htought I would ask on here.

[Static]

Have you tried using the GetCursorPos API? that would get the cursor on location on the screen and the not form, then u should be able to put the form in the right spot

[TheBionicOrange]

No I haven't ... but I will now. Ta.

[si_the_geek]

Is this for a FlexGrid?

If so, here's how to get the Top of the active cell (you can guess the Left!):

MsgBox Me.Top + FlexGrid.Top + FlexGrid.CellTop

(CellTop etc are always in Twips, so you'll need to convert it if your forms scalemode is anything else)

[TheBionicOrange]

No its not a flexgrid ... its an "IGrid" (from 10Tech), which doesn't appear to have a "CellTop" and "CellLeft" property.

[si_the_geek]

Ah.. well in that case Static's idea will probably be the best way.

The only alternative I can think of to get the CellTop is to use a property like .TopRow (if it has one!) the add the .RowHeight's (if avaiable!) until you reach the correct row.

[RobCrombie]

Do any of your events return x & y co-ords ?
EG the SGrid has a mouseup event that does return x & y

Private Sub SGrid_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)

If you can determine these in some manner, you can then add them to the Form's co-ords to get the positioning you desire.

[TheBionicOrange]

Yes they do. My Mouse UP events has the following ...

Private Sub iGrid_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single, ByVal lRow As Long, ByVal lCol As Long, bDoDefault As Boolean)

[RobCrombie]

With the SGrid I can position over the cell, but not exactly aligning with the borders.
The SGrid lacks a property .CellLeft and .CellTop which the flexgrid has.
If it had those properties, I could align exactly.
Does your grid have a Cell Left and Cell Top property ?

[TheBionicOrange]

No it doesn't (see above).