本文整理自网络,侵删。
//在StringGrid: SpaceGrid中指定的Col, Row嵌入一个ComboBox: SpacingCombovarRect: TRect;Pnt: TPoint;beginwith SpaceGrid dobeginRect := CellRect(Col, Row);with Rect do beginPnt := SpacingCombo.Parent.ScreenToClient((SpaceGrid.ClientToScreen(Point(Left, Top))));SpacingCombo.SetBounds(Pnt.X, Pnt.Y, Right - Left, Bottom - Top);SpacingCombo.Show;end;end;
更多介绍:https://wedelphi.com/t/50668/
相关阅读 >>
Delphi processid, process handle, window handle 之间的互相转换
Delphi strtoint 将“字符型”转换成“整数型”
Delphi 窗体的位置和高宽度-tform:letf、top、width、height、clientwidth、clientheight
Delphi xe8中的firemonkey应用程序将文本复制到剪贴板
更多相关阅读请进入《Delphi》频道 >>