Windows 可以在单个控件上管理多个焦点吗？

Question

我正在构建一个具有多个焦点的自定义控件。例如，在 1 个控件内，假设有 3 个区域（可以定义为画布上的一个矩形）能够获得焦点。根据哪个有焦点，我不希望默认的 Windows 虚线围绕它，而是一些特殊的处理。我什至不知道如何让 1 个自定义控件拥有自己的焦点。

最初的项目是一个单独的 TPanel，上面有几个 VCL 控件，每个控件当然都是自己的窗口，因此有自己的焦点。但现在我将它放入自己的自定义类中，这 3 个控件将不再存在（它们仅在版本 1 中作为原型存在），我现在需要以某种方式模仿这些不同区域的焦点。

我想类似于像 TListBox 这样简单的东西，该控件中的某些项目获得焦点，而不是整个控件本身。

这里有一张图片来帮助展示我正在制作的东西......

顶部的那个是带有按钮的原件。但底部的那个是我正在建造的新的，它都是自定义绘制的。

为了详细说明，我想在重新发明轮子之前看看 Windows 是否已经对这种类型的场景进行了特殊处理。

我不是在寻找“最简单”的方法来实现这一点。而且我也不希望建议恢复到我以前的方式，因为有很多原因我不希望 1 个控件与多个其他控件一起使用。我只需要一个是或否，以及一个解释。

更多

我刚刚意识到主要问题是tab 键的使用。控件必须首先获得焦点，开始关注它应该关注的任何子项，然后在我的命令上响应tab，直到它到达末尾，然后将制表符传递给下一个控件。然后它也需要 shift+tab 。我到底将如何实现这个选项卡？这就是我卡住的地方，但我突然意识到这是我问的主要原因。

Answer 1

关于 TAB 键的处理 - 它应该是这样的：您处理 WM_GETDLGCODE message 以表明您要处理 TAB 键，即

TMyControl = ...
  protected
     procedure WMGetDlgCode(var Msg: TMessage); message WM_GETDLGCODE;
     procedure KeyDown(var Key: Word; Shift: TShiftState); override;
...
procedure TMyControl.WMGetDlgCode(var Msg: TMessage);
begin
  inherited;
  Msg.Result:= Msg.Result or DLGC_WANTTAB;
end;

在被覆盖的KeyDown 方法中，您决定如何响应它，例如

procedure TMyControl.KeyDown(var Key: Word; Shift: TShiftState);
begin
  if(Key = VK_TAB)then begin
     if(ssShift in Shift)then begin
        if(first subcontrol is focused) set focus to previous control on parent
        else set focus to previous child area
     end else begin
        if(last subcontrol is focused) set focus to next control on parent
        else set focus to next child area
     end;
  end else inherited;
end;

Answer 2

不，您不能让窗口识别同一个窗口句柄内的多个键盘焦点，因为每个具有窗口句柄的控件都具有或不具有键盘焦点。多个控件之间的“内焦”，由你来梳理。

如您所知，实现此目的最简单的方法是拥有多个带有自己的窗口句柄的子控件，这就是您所说的：

TMyThreeEditControls = class(TControl) //  parent has no window handle!!!!
    protected
        FEdit1:TEdit;
        FEdit2:TEdit;
        FEdit3:TEdit;
    ...
end

在上面的情况下，父控件是一个TControl，它创建了几个子控件，在我上面的例子中，三个都有自己的窗口句柄，因此Windows可以在你点击Tab时显示键盘焦点，并处理鼠标焦点作为 Windows 通用控件库功能的一部分。

简而言之，在主控件中包含子对象（其他控件）的“复合”方法实际上是让 Windows 完成大部分工作的唯一方法。

另一方面，您可能正在寻找的不是一种让控件绘制本身的方法，而是在您自己的自定义绘制例程中使用一些代码来使某些东西看起来像是聚焦的，如果您就是这样的话寻找，您应该查看 VCL 源代码或 about.com 上的 link，以获取有关如何告诉 Windows 绘制焦点矩形等的示例。 about.com 链接是模仿的，不使用真正的 Windows 代码以 Windows 主题感知方式吸引焦点。

更新：您可能还在寻找确定鼠标坐标是否在指定矩形内的方法（在您的情况下，矩形代表一个按钮），如果是，则绘制“热状态” " 为按钮。如果您想自己构建一个控件，还有更多的子任务需要完成，我建议您研究VCL源代码中现有的控件，例如TStringGrid和TCategoryButtons，以查看您需要的MouseMove、MouseDown和MouseUp处理代码去做你想做的事情。特别是，StringGrid 源代码是查看如何在具有单个窗口句柄的单个控件中使用“tab 键”的方法，因为在该控件中可以使用 tab 键（如果打开了正确的选项）来在字符串网格内的所有单元格之间导航，就好像每个单元格都是一个单独的控件一样，即使它都是一个控件。

Answer 3

实现此目的的另一种方法是使用一个编辑框，该编辑框可重复用于您想要“聚焦”的每个区域。这基本上就是 Delphi 的网格的工作方式。

当用户在该区域单击（或在控件中按 Tab 键）时，您将编辑控件文本设置为该区域中的数据，将编辑控件边界设置为该区域并使其可见。当用户退出控件时（通过单击或跳出），您将隐藏编辑控件。如果你让你的控件接受 tab 键，你可以让它在他们点击 tab 时“编辑”下一个区域，当他们在最后一个区域时退出它。

然后，它只是确保您将输入的数据存储在组件中的正确位置。