Delphi XE4 FireMonkey中的TMemo控件是否支持透明度？（iOS）

Question

有没有办法在Delphi/iOS/FireMonkey中使TMemo透明？

当我选择 + 右键单击备忘录控件时，我没有看到任何自己编辑样式的方法...

- Tom

Answer 1

尝试在应用样式事件上移除备忘录的背景。

procedure TForm1.Memo1ApplyStyleLookup(Sender: TObject);
var
  BckObject: TFmxObject;
begin
  BckObject := Memo1.FindStyleResource('background');
  if Assigned(BckObject) and (BckObject is TSubImage) then
  begin
    TSubImage(BckObject).Source := nil;
  end;
end;

- AvgustinTomsic

Answer 2

你需要改变要显示为透明的控件的样式。不幸的是，Embarcadero并没有提供一个完全功能的例子，只在Customizing FireMonkey Applications with Styles主题中提供了一些信息。

- RBA

---

我看到这个提示："在FireMonkey样式设计器中查看样式定义：在表单设计器中将控件拖放到一个表单上。 右键单击该控件并选择“编辑默认样式”" ... **但是**我没有任何名为**编辑默认样式**的选项，这相当奇怪。你能用这个功能吗？我的XE4/Pro + 移动插件安装有问题吗？ - Tom

@tom，开发iOS应用程序时故意删除了这些菜单项。访问iOS内置样式非常复杂。 - Mike Sutton

@MikeSutton，实际上它被移除是因为存在一个严重的错误，该错误仍未得到解决。否则没有理由删除它，并最终会重新引入。 - Peter

还有其他获取透明TMemo的方法吗？ :) - Tom

@Tom，这只是一个想法。你试过在应用样式事件时移除背景吗？procedure TForm1.Memo1ApplyStyleLookup(Sender: TObject); var BckObject: TFmxObject; begin BckObject := Memo1.FindStyleResource('background'); if Assigned(BckObject) and (BckObject is TSubImage) then begin TSubImage(BckObject).Source := nil; end; end; - AvgustinTomsic

@slotomo 那很好！把它变成答案，我会给你赏金 :) - Tom