50分求救cxgrid高手，我在窗体有若干个cxgrid，怎么判断当前焦点是哪个？

[HelpMeNow]

同上。
我用activecontrol就是取不到

[kfcoffe]

每个cxGrid的OnEnter中判断

[lhy]

遍历控件，查看Focused。

[金卯刀]

function GetCxGridFocused(aControl: TWinControl): TcxCustomGrid;
begin
  Result:= nil;
  if aControl is TcxCustomGrid then
    Result := TcxCustomGrid(aControl)
  else
  while aControl.Parent<>nil do
  begin
    aControl:= aControl.Parent;
    if aControl is TcxCustomGrid then
    begin
      Result:= TcxCustomGrid(aControl);
      Break;
    end;
  end;
end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  Caption := GetCxGridFocused(ActiveControl).Name;
end;

[Blessed_Chuan]

[Quote=引用 3 楼 avan_lau 的回复:]
Delphi(Pascal) code

function GetCxGridFocused(aControl: TWinControl): TcxCustomGrid;
begin
Result:= nil;
if aControl is TcxCustomGrid then
Result := TcxCustomGrid(aControl)
else
w……
[/Quote]
正解