DBGrid 单击弹出PickList

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;