6

有什么方法可以让 Delphi/iOS/FireMonkey 中的 TMemo 透明?

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

4

2 回答 2

8

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

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;
于 2013-07-20T17:38:54.747 回答
2

您需要根据需要更改要显示为透明的控件的样式。不幸的是,Embarcadero 没有提供功能齐全的示例,仅提供有关使用样式自定义 FireMonkey 应用程序主题的一些信息

于 2013-07-15T13:16:07.907 回答