delphi - 如何在样式设计器之外的FireMonkey样式中编辑控件？

Question

在这种情况下，我通过RADStudio XE2在FireMonkey HD应用程序上创建了一个默认按钮。然后，我为按钮创建了一个自定义样式，名为“ Style1”。此样式与默认按钮样式非常相似，但是，在TText控件旁边有一个TImage控件。

用简单的话来说，就是在文本旁边带有图像的按钮。

现在，我将图像应用于按钮的TImage控件吗？因为如果我通过样式设计器将图像应用于TImage控件，则使用该样式的其他控件也将获得相同的图像。

Answer 1

您可以在运行时执行此操作。
首先，必须为您的TImage样式对象命名。 'btnimg'
之后，您可以使用FindStyleResource按名称查找它：

procedure LoadImage(btn : TButton; imgFileName : string);
var img : TImage;
begin
    img := btn.FindStyleResource('btnimg') as TImage;

    if not assigned(img) then exit;

    img.bitmap.LoadFromFile(imgFileName); 
end;