判断cxGrid是否获得焦点

最新推荐文章于 2020-10-21 12:50:05 发布

悟影

最新推荐文章于 2020-10-21 12:50:05 发布

阅读量1.9k

点赞数

分类专栏： DevExpressVCL 文章标签： cxgrid获得焦点

本文链接：https://blog.csdn.net/lichuxiong/article/details/37881477

版权

DevExpressVCL 专栏收录该内容

4 篇文章 0 订阅

订阅专栏

先阐明一下，cxGrid是否获得焦点是指cxGrid处于当前鼠标选中状态，这个问题看似看简单，如果你直接调用cxGrid.Focused属性，我相信你会很失望。

其实，当点击cxGrid后，可能是相应TcxGridSite获得焦点，也可能是其内部的控件获得焦点，因此使用cxGrid.Focused基本上都是返回false值。

使用以下函数解决此问题：

function IscxGridFocused(aGrid:TcxGrid):Boolean;
var
  AContainer: TcxCustomEdit;
  aSite:TcxGridSite;
begin
  Result := False;
  if aGrid.ActiveView=nil then
    Exit;
  aSite := aGrid.ActiveView.Site;
  if Screen.ActiveControl is TcxGridSite then
    Result := (TcxGridSite(Screen.ActiveControl)=aSite)
  else
  begin
    AContainer := nil;
    if Screen.ActiveControl is TcxCustomEdit then
      AContainer := TcxCustomEdit(Screen.ActiveControl)
    else if (Screen.ActiveControl.Parent<>nil)and
      (Screen.ActiveControl.Parent is TcxCustomEdit) then
      AContainer := TcxCustomEdit(Screen.ActiveControl.Parent);

    if Assigned(AContainer) then
      Result := (AContainer.Parent is TcxGridSite)and(TcxGridSite(AContainer.Parent)=aSite);
  end;    
end;