我如何知道控件何时可以聚焦？

Question

我有自己的 Treeview 控件，源自 TCustomTreeView。

我在类中添加了一些我自己的过程，例如添加节点。在运行时调用此过程时，我希望选择新添加的节点并聚焦 Treeview，以便突出显示新节点。

摘录如下：

procedure TMyTreeView.AddGroup(AName: string);
var
  Node: TTreeNode;
  Obj: TGroup;

  procedure AddToTree;
  begin
    Obj := TGroup.Create(AName);
    FGroups.Add(Obj);

    Node := Items.AddObject(Node, AName, Obj);
    with Node do
    begin
      ImageIndex := 0;
      SelectedIndex := 0;
    end;

    Selected := Node;
    SetFocus;
  end;

begin
  Node := nil;
  AddToTree;
end;

上述方法有效，但我在从表单OnCreate 事件调用时遇到常见错误消息：

无法聚焦已禁用或不可见的窗口

我知道您可以使用OnActivate 事件，或者根本不使用OnCreate，这不会导致错误，但是可能使用该组件的其他人可能没有意识到这一点。

所以我想知道是否有办法确定我的 Treeview（或任何控件）是否能够接收焦点，然后我可以添加一些我自己的检查，例如：

if ControlIsFocusable then
begin
  Selected := Node;
  SetFocus;
end;

我知道您可以覆盖Loaded 过程，它会告诉我们何时加载控件，但那只会在第一次运行时起作用。如果控件在运行时被用户隐藏（或一开始不可见），Cannot focus a disabled or invisible window 错误仍然会出现。

不在调试器中运行时的脏方法是：

try
  Selected := Node;
  SetFocus;
except
end;

但这违背了目的，我讨厌以这种方式处理错误。

所以基本上我想知道是否有一种方法可以确定控件是否可以接收焦点，以便我们可以将焦点设置给它？

Answer 1

我不会回答你提出的问题，因为我认为你做错了。

控件不应在自身上调用SetFocus。我无法想象这是正确行为的场景。形式或应用程序或框架应确定重点。不是控制。

想象一下当您有一个包含两个这样的控件的表单时会发生什么？想象一下使用键盘聚焦一个按钮，然后用 SPACE 栏按下该按钮。如果附加到按钮的操作调用了控件的方法，然后更改了焦点，那么您就违反了平台 UI 准则。现在，您的控制会给任何尝试使用它的应用程序带来沉重的负担。