TO:007VIVI试了,不行啊,其位置不对,老是在表单最顶端。其代码如下:procedure TCGDDGL.DBGridEH3DblClick(Sender: TObject);var mousept: TPoint;BEGIN IF TDRAWGRIDEH(DBGRIDEH3).COL=7 THEN BEGIN GETCURSORPOS(MOUSEPT); DBGRIDEH5.TOP:=MOUSEPT.X; DBGRIDEH5.LEFT:=MOUSEPT.Y; DBGRIDEH5.Visible:=TRUE; END;