本文整理自网络,侵删。
//在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 xe5实现按android的back键无法退出关闭程序
Delphi xe6 string转memorystream
更多相关阅读请进入《Delphi》频道 >>