type myGrid = class(TCustomGrid) end; type myInplaceEditList = class(TInplaceEditList) end; procedure TDemoForm.gdDemoGridCellClick(Column: TColumn); begin Column.Field.FocusControl; Column.DropDownRows := 20; myInplaceEditList(myGrid(grdColorSize).InplaceEditor).DropDown; end;
原文：https://www.cnblogs.com/jijm123/p/11824945.html