当前位置:首页 > 数据库 > 正文

DBGrid 单击弹出PickList

2020-03-02 数据库

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;

 

温馨提示: 本文由Jm博客推荐,转载请保留链接: https://www.jmwww.net/SQL/24920.html