判断cxGrid是否获得焦点

2017-06-02 11:22:19来源:CSDN作者:zisongjia人点击

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

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

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

[delphi] view plain copy
  1. function IscxGridFocused(aGrid:TcxGrid):Boolean;  
  2. var  
  3.   AContainer: TcxCustomEdit;  
  4.   aSite:TcxGridSite;  
  5. begin  
  6.   Result := False;  
  7.   if aGrid.ActiveView=nil then  
  8.     Exit;  
  9.   aSite := aGrid.ActiveView.Site;  
  10.   if Screen.ActiveControl is TcxGridSite then  
  11.     Result := (TcxGridSite(Screen.ActiveControl)=aSite)  
  12.   else  
  13.   begin  
  14.     AContainer := nil;  
  15.     if Screen.ActiveControl is TcxCustomEdit then  
  16.       AContainer := TcxCustomEdit(Screen.ActiveControl)  
  17.     else if (Screen.ActiveControl.Parent<>nil)and  
  18.       (Screen.ActiveControl.Parent is TcxCustomEdit) then  
  19.       AContainer := TcxCustomEdit(Screen.ActiveControl.Parent);  
  20.   
  21.     if Assigned(AContainer) then  
  22.       Result := (AContainer.Parent is TcxGridSite)and(TcxGridSite(AContainer.Parent)=aSite);  
  23.   end;      
  24. end;    

最新文章

123

最新摄影

微信扫一扫

第七城市微信公众平台