delphi - 在XE7中，TEdit.OnApplyStyleLookup不起作用

Question

1. 创建一个简单的 FireMonkey 移动应用。
2. 向表单添加 TEdit 字段。
3. 分配 OnApplyStyleLookup 事件

4. 编写以下代码

   procedure TForm1.Edit1ApplyStyleLookup(Sender: TObject);
   var
     Obj: TFmxObject;
   begin
     Obj := Edit1.FindStyleResource('background');
     if Obj <> nil then
       ShowMessage('Obj is not nil')
     else
       ShowMessage('Obj is nil');
   end;
   

XE6 中的代码运行良好，XE7 中的 Obj 为 nil。请问，这是什么原因，如何到达Obj？

如下代码，访问Obj与NIL值相同:

TMyEdit = class(TEdit)
protected
  procedure ApplyStyle;override;
...

procedure TMyEdit.ApplyStyle;
var
  Obj: TFmxObject;
begin
  inherited;
  Obj := Self.FindStyleResource('background');
  ...
end;  

Answer 1

我在使用 C++Builder XE7 时遇到了同样的问题。我就是这样解决的。我创建了这个函数:

static Fmx::Types::TFmxObject* __fastcall FindStyle(
    Fmx::Types::TFmxObject* AFmxObject, const System::UnicodeString AStyleLookup)
{
    if(AFmxObject == NULL)
    {
        return NULL;
    }

    Fmx::Types::TFmxObject* Result = NULL;
    const int LChildrenCount = AFmxObject->ChildrenCount;
    for(int i = 0; i < LChildrenCount; ++i)
    {
        if(AFmxObject->Children->Items[i]->StyleName == AStyleLookup)
        {
            Result = AFmxObject->Children->Items[i];
            break;
        }
        Result = FindStyle(AFmxObject->Children->Items[i], AStyleLookup);
        if(Result != NULL)
        {
            break;
        }
    }
    return Result;
}

只需像这样调用该函数:

#if __CODEGEARC__ < 0x0690
    Fmx::Types::TFmxObject* LStyleResource = LEdit->FindStyleResource("background");
#else
    Fmx::Types::TFmxObject* LStyleResource = FindStyle(LEdit, "background");
#endif

它并没有那么复杂，所以我想用 Delphi 编写它会很容易。