delphi - 使用RTTI设置组件焦点

Question

是否可以通过Rtti到达任何控件Focus属性？我想要的是如果控件为Empty，则将其值设置为True。
任何帮助将不胜感激。

procedure SetFirstEmptyCtrlFocused;

  function HasTextProp(aControl: TControl): Boolean;
  var
    Ctx: TRttiContext;
    Prop: TRttiProperty;
  begin
    Prop := lCtx.GetType(aControl.ClassType).GetProperty('Text');
    Result := (Prop <> nil) and (Prop.Visibility in [mvPublic, mvPublished]) 
      and (Prop.GetValue(aControl).ToString = '');
  end;

var
  ObjList: TObjectList<TControl>;
  objIdx: Integer;
  Ctrl: TControl;

begin
  ObjList := TObjectList<TControl>.Create;
  ObjList.Add(cxTextEdit1);
  ObjList.Add(cxDateEdit1);
  ObjList.Add(cxTextEdit2);

  for objIdx := 0 to lObjList.Count -1 do
  begin
    Ctrl := lObjList.Items[objIdx];

    if HasTextProp(lCtrl) then
    begin
      SetCtrlFocused //...??
      Break;
    end;
  end;   
end;  

Answer 1

不是每个TControl都能获得焦点，只有TWinControl可以。因此，请使用TWinControl而不是TControl并使用其方法SetFocus：

procedure SetFirstEmptyWinCtrlFocused;

  function HasTextProp(aControl: TWinControl): Boolean;
  var
    Ctx: TRttiContext;
    Prop: TRttiProperty;
  begin
    Prop := Ctx.GetType(aControl.ClassType).GetProperty('Text');
    Result := (Prop <> nil) and (Prop.Visibility in [mvPublic, mvPublished]) 
      and (Prop.GetValue(aControl).ToString = '');
  end;

var
  ObjList: TObjectList<TWinControl>;
  objIdx: Integer;
  Ctrl: TWinControl;

begin
  ObjList := TObjectList<TWinControl>.Create;
  ObjList.Add(cxTextEdit1);
  ObjList.Add(cxDateEdit1);
  ObjList.Add(cxTextEdit2);

  for objIdx := 0 to lObjList.Count -1 do
  begin
    Ctrl := lObjList.Items[objIdx];

    if HasTextProp(Ctrl) then
    begin
      Ctrl.SetFocus;
      Break;
    end;
  end;   
end;