CJC Delphi 技巧馆's Archiver

cjc Posted at 2018-9-20 10:40

IoS 中 TEdit 背景透明

[龟山]阿卍(1467948783)  13:40:24

在 iOS 下 Edit 要变透明,可以用 OnApplyStyleLookup 去改成透明的。

procedure TForm1.Edit1ApplyStyleLookup(Sender: TObject);
var Obj: TFmxObject;
begin
     Obj := Edit1.FindStyleResource('background');
     if Obj <> nil then
     begin
          TStyleObject(Obj).Visible := False;
     end;
end

Page: [1]
CJC好玩背单词最新版本 - 是目前最好的背单词软件,游戏好玩,功能强大,词库众多,还有真人语音,免费下载,免费试用 !

Powered by Discuz! Archiver 6.1.0  © 2001-2007 Comsenz Inc.