我正在将我的应用程序(Android、iOS)从 Delphi 10 Seattle 更新到 Delphi 10.2 Tokyo。我有一些使用透明度的表格。我用它来创建像屏幕一样的小弹出窗口,它仍然在透明表单下方的背景中显示先前表单的一部分。
我现在的问题是透明度属性设置为 True 的表单根本不显示。似乎调用透明表单的原始表单在它之上。
在 Windows 上,表单运行正常,在 iOS 上,我可以看到一些组件,有些组件的大小/位置错误。
我该如何解决这个问题?
下面的代码示例:
procedure TForm1.Button1Click(Sender: TObject);
var
FrmTransParentForm: TFrmTransParentForm;
begin
inherited;
FrmTransParentForm := TFrmTransParentForm.Create(nil);
FrmTransParentForm.Show;
end;
procedure TFrmTransParentForm.Button1Click(Sender: TObject);
begin
Close;
end;
procedure TFrmTransParentForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := TCloseAction.caFree;
end;
TFrmTransParentForm 表单是一个普通表单,只有一个按钮在屏幕中心对齐,并且表单属性透明度设置为 true。