我想做一个效果，不知道怎么弄？ 就是获得鼠标位值的信息。比如 像右键弹出菜单那样的效果，但我项显示的是表单，它姚显示的时候，位置随

Question

我想做一个效果，不知道怎么弄？ 就是获得鼠标位值的信息。比如 像右键弹出菜单那样的效果，但我项显示的是表单，它姚显示的时候，位置随鼠标（主要是DBGridEh的EditButton单击触发）的位置而变动。向下位置不够表单显示的时候，表单就自动移动到上面显示，如果项尚未值不够的话就项下移动。
其实一句话： 就项右键菜单弹出的效果（注意主要是显示位置的修订）

Answer 1

点击左键出现右菜单？　不知道有没有理解错误。。procedure TFrmMain.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
   var aa:TPoint;
begin
   if button= mbLeft then
begin
   if button<>MBright then
   getcursorpos(aa);
   PopupMenu1.popup(aa.x,aa.Y);
end;

Answer 2

我希望的是显示的表单，就像右键菜单那样，根据鼠标在屏幕（主要是在DBGridEh 的 EditButton click 那样）的位置，然后表单自动调整显示的位置，以保证能够在任何地方正常显示，能看到全部表单内容，而不会出现表单显示的时候，跑到屏幕看不到的地方。

Answer 3

并且还不档着DBGridEh 中的Cell的显示