Delphi XE8 FireMonkey TMemo透明吗？

Question

有没有办法使TMemo的背景透明？ 我尝试将不透明度从1设置为0，然后整个组件（包括文本）逐渐消失，然后在0处完全消失。在0.1时，背景框仍然可见。 我当前正在使用XE8 for iOS 8.3。

Answer 1

由于TMemo是TStyledControl您需要更改其Style以使背景透明。 为此，请右键单击TMemo然后选择“编辑自定义样式”。 这将打开样式编辑器。 寻找MemoStyle1 。 小时候，您会发现TActiveStyleObject类型的背景。 在MemoStyle1中添加一个TLayout（备注背景将始终是透明的）或一个TRectangle（以更好地控制颜色和透明度）。 将添加的TLayout（或TRectangle）align属性更改为contents ，并将其StyleName属性设置为“ background”。 现在，将所有子项从原始背景TActiveStyleObject到新背景中。 现在删除原始背景。 注意：为了在样式编辑器中删除对象，您需要选择对象，然后使用样式列表顶部的删除按钮。 单击样式编辑器右上角的“应用并关闭”，您应该会在记事中看到效果。

Answer 2

  uses FMX.Styles.Objects;

procedure TForm1.Memo1ApplyStyleLookup(Sender: TObject);
  Var
  Obj: TFmxObject;
begin

  Obj := Memo1.FindStyleResource('background');

  if Assigned(Obj) And ( Obj is TActiveStyleObject ) Then
  TActiveStyleObject(Obj).Source := Nil;

end;

Answer 3

我已经测试了iamjoosy和DanielH的2个帖子。 他们都适用于iOS 8.3和Android 5.02

对于代码解决方案，只需将其插入要使其背景透明的TMemo的OnApplyStyleLookup事件处理程序中即可。 我将TMemo的StyleLookup属性留为空白。

以前有XE4的代码解决方案，但对我来说不起作用，因为它测试资源对象是否是TSubImage而不是TActiveStyleObject。

这两个答案都是很好的替代解决方案。

多亏你们两个。