本文整理自网络,侵删。
//在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 firedac tfddatamove 导出csv
Delphi 关于 class helper for ... 语法
Delphi edit1.gettextlen 获取编辑框字符数
Delphi 如何将memo或richedit保存为utf 8文本文件?
更多相关阅读请进入《Delphi》频道 >>