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;
