DevExpress-如何以编程方式调用cxGrid的FilterPopup窗口

procedure TForm1.SpeedButton1Click(Sender: TObject);   
var   
   I: Integer;   
   Index: Integer;   
   APopupOwner: TcxGridColumnHeaderFilterButtonViewInfo;   
begin   
   Index := cxGrid1DBTableView1.Controller.FocusedColumn.VisibleIndex;   
   with cxGrid1DBTableView1.ViewInfo.HeaderViewInfo[Index] do   
    for I := 0 to AreaViewInfoCount - 1 do   
      if AreaViewInfos[I] is TcxGridColumnHeaderFilterButtonViewInfo then   
      begin   
        APopupOwner := TcxGridColumnHeaderFilterButtonViewInfo(AreaViewInfos[I]);   
        Break;   
      end;   
   cxGrid1DBTableView1.Controller.FilterPopup.Owner := APopupOwner;   
   cxGrid1DBTableView1.Controller.FilterPopup.Popup;   
end;

示例工程源码下载如下:

 

THE END
文章版权归作者所有,未经允许请勿转载。
点赞7赞赏
评论 抢沙发
头像
欢迎您留下宝贵的见解!
提交
头像

昵称

取消
昵称表情代码图片