如何设置表单的焦点，以便没有控件在FireMonkey中具有焦点？

Question

使用C ++ Builder XE6和FireMonkey，如何设置表单的焦点，以便没有控件具有焦点？

我知道我可以在控件上调用SetFocus（），但我不希望任何特定控件具有焦点。

Answer 1

在Delphi中，您可以将表单的Focused属性设置为nil，例如：

procedure TForm1.Button1Click(Sender: TObject);
begin
  Focused := nil;
end;

在C ++ Builder中，它可能是：

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  Focused = NULL;
}

Answer 2

我使用 Delphi 10.3.3 和 Focused := nil;不起作用。 至少它不适合我。

但是，FocusControl(Nil);确实有效，我认为最好将其添加到表单的 OnActivate 事件中。

procedure TForm1.FormActivate(Sender: TObject);
begin
  FocusControl(Nil);
end;