判断cxGrid是否获得焦点

先阐明一下，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;