[Solved] TStringGrid displaying a popup menu on a cell

[jcmontherock]

I have the following code to display a popup menu when clicking with the right mouse button on a cell:

Code: Pascal  [Select][+][-]

1. procedure TForm1.StringGrid1MouseDown(Sender: TObject; Button: TMouseButton;
2.   Shift: TShiftState; X, Y: Integer);
3. var
4.   pTopLeft: TPoint;
5. begin
6.   if (Button = TMouseButton.mbRight)  And (Shift = [ssRight]) then begin
7.       pTopLeft := ClientToScreen(Point(X, Y));
8.       PopupMenu2.Popup(pTopLeft.X, pTopLeft.Y+100);
9.   end;
10. end;

It's work perfectly. The X param is OK,  but I do not understand why I should add 100 pixels(?) to the point Y to be on the mouse arrow ?

[jamie]

You would think that work and you are correct on that assumption.

what Widget are you on?

 In any case, try using the Mouse.CursorPos instead, that is the screen X,Y

 P.S.
   Your Grid could be scrolled up a little when you do that.
Jamie

[jcmontherock]

Thanks: Mouse.cursor works better and is more simpler to use.