Delphi7 How to let button buttons follow mouse click Dbgrideh data row move

delphi7 How to let button buttons follow mouse click Dbgrideh data row Move

In the Dbgridcellclick event of DBGrid, add:

Delphi/pascal Code

1234567891011

var  x, y : integer;  P: TPoint;begin  GetCursorPos(P);  Edit1.Text := Format(‘X: %d, Y: %d‘,[P.X, P.Y]);  x := frMainTest.Left ;  y := frMainTest.Top ;  Button.Top := P.Y - y - 45;  Button.Left := P.X - x ;  Button.BringToFront();

Note: The position of the Button needs to be calculated relative to the container you are placing.

GetCursorPos (P) Gets the position of the mouse over the screen.

Delphi7 How to let button buttons follow mouse click Dbgrideh data row move