delphi - SetFocus 与 Firemonkey，在从样书动态创建的 TEdit 上

Question

我有一个带有隐藏 TEdit 组件的自定义样式 TListBoxItem。当我在列表框中选择一个项目时，我将 TEdit 设置为可见：

importFiles.Selected.StylesData['nameEdit.visible'] := TRUE;

但我有一个问题，我如何设置 TEdit 的焦点？通常，我这样做：

Edit1.SetFocus();

有什么想法，我如何将重点放在 TEdit 上？

Answer 1

您需要使用 FindStyleResource 从样式访问 TEdit：

procedure Form1.Button1Click(Sender: TObject);
var O: TFMXObject;
begin
  if Assigned(ImportFiles.Selected) then
  begin
    O := TFMXObject(ImportFiles.Selected).FindStyleResource('NameEdit');
    if O is TEdit then
    begin
      TEdit(O).Visible := True;
      TEdit(O).SetFocus;
    end;
  end;
end;