怎麼能讓CXGRID,中某列內嵌的控件自動下拉

type
  TcxImageAccess = class(TcxImage);

procedure <Form>.<SpeedButton>OnClick(Sender: TObject);
var
  AHandled: Boolean;
  AImage: TcxImage;
  Aview: TcxGridDBTableView;
begin
  Aview := cxGridDBTableView1;
  AHandled := True;
  Aview.Controller.EditingController.ShowEdit();
  if Aview.Controller.EditingController.Edit is TcxImage then
  begin
    AImage := TcxImage(cxGridDBTableView1.Controller.EditingController.Edit);
    TcxImageAccess(AImage).DoContextPopup((Point(0,0)),AHandled);
  end;
end;   

 

或

 

 

Grid_infoDBTableView1.DataController.FocusedRowIndex:= self.Grid_infoDBTableView1.DataController.RowCount;
  Grid_infoDBTableView1.Controller.FocusedColumnIndex :=4;
  Grid_info.SetFocus;
  Grid_infoDBTableView1.Controller.FocusedColumn.Editing:=true ;
  TcxLookupComboBox(Grid_infoDBTableView1.Controller.EditingController.Edit).DroppedDown :=True;
  TcxLookupComboBox(Grid_infoDBTableView1.Controller.EditingController.Edit).ItemIndex:=0;