在StringGrid: SpaceGrid中指定的Col, Row嵌入一个ComboBox: SpacingCombo
var
  Rect: TRect;
  Pnt: TPoint;
begin
  with SpaceGrid do
  begin
    Rect := CellRect(Col, Row);
    with Rect do 
    begin
      Pnt := SpacingCombo.Parent.ScreenToClient((SpaceGrid.ClientToScreen(Point(Left, Top))));
      SpacingCombo.SetBounds(Pnt.X, Pnt.Y, Right - Left, Bottom - Top);
      SpacingCombo.Show;
    end;
  end;