Delphi XE4 FireMonkey TMemo 透明？ (iOS)答案

【问题标题】：Delphi XE4 FireMonkey TMemo Transparent? (iOS)Delphi XE4 FireMonkey TMemo 透明？ (iOS)
【发布时间】：2013-07-15 11:24:55
【问题描述】：

有没有办法让Delphi/iOS/FireMonkey中的TMemo透明？

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

【问题讨论】：

标签： ios delphi firemonkey delphi-xe4 tmemo

【解决方案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;

【讨论】：

【解决方案2】：

您需要根据需要更改要显示为透明的控件的样式。不幸的是，Embarcadero 没有提供功能齐全的示例，仅提供有关 Customizing FireMonkey Applications with Styles 主题的一些信息

【讨论】：

我看到：“要在 FireMonkey 样式设计器中查看样式定义：在表单设计器中将控件拖放到表单上。右键单击该控件并选择“编辑默认样式”... 但是我没有任何名为 Edit Default Style 的选项，这很奇怪。这对你有用吗？我的 XE4/Pro + 移动插件安装是否搞砸了？
@tom，这个菜单项在开发 iOS 应用程序时被故意删除了。获取 iOS 的内置样式非常复杂。
@MikeSutton，实际上它已被删除，因为有一个严重的错误仍未解决。否则没有理由删除它，最终会重新引入。
那么有什么替代方法可以获得透明的 TMemo 吗？ :)
@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;