delphi - StyleBook から動的に作成された TEdit で、Firemonkey を使用して SetFocus

Question

非表示の TEdit コンポーネントを持つカスタム スタイルの TListBoxItem があります。リストボックスで項目を選択したら、TEdit を表示に設定します。

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

しかし、問題があります。TEdit にフォーカスを設定するにはどうすればよいですか? 通常、私は次のようにします。

Edit1.SetFocus();

TEdit にフォーカスを設定するにはどうすればよいですか?

Answer 1

スタイルから TEdit にアクセスするには、FindStyleResource を使用する必要があります。

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;