delphi安卓动态切换本地主题

本文整理自网络，侵删。

 procedure TForm1.btn1Click(Sender: TObject);beginToast('Toast信息', LongToast);end;

procedure TForm1.btn2Click(Sender: TObject);begin  ShowMessage('Atom Developer');end;
procedure TForm1.btn4Click(Sender: TObject);begin  MessageDlg('你真的想关闭Delphi开发的应用程序吗？',    System.UITypes.TMsgDlgType.mtInformation,    [System.UITypes.TMsgDlgBtn.mbYes, System.UITypes.TMsgDlgBtn.mbNo], 0,    procedure(const BotaoPressionado: TModalResult)      begin        case BotaoPressionado of          mrYes: begin              Toast('你选择了 是', ShortToast);            end;          mrNo: begin              Toast('你选择了 否', ShortToast);            end;        end;      end    );end;
procedure TForm1.cmb1Change(Sender: TObject);begin  TJAndroidThemeHelper.ThemeID := cmb1.ListItems[cmb1.ItemIndex].Tag;end;
procedure TForm1.FormCreate(Sender: TObject);var  aItem: TListBoxItem;begin  aItem := TListBoxItem.Create(cmb1);  aItem.Tag := TJAlertDialog.JavaClass.THEME_TRADITIONAL;  aItem.Text := 'THEME_TRADITIONAL';  cmb1.AddObject(aItem);
  aItem := TListBoxItem.Create(cmb1);  aItem.Tag := TJAlertDialog.JavaClass.THEME_DEVICE_DEFAULT_DARK;  aItem.Text := 'THEME_DEVICE_DEFAULT_DARK';  cmb1.AddObject(aItem);
  aItem := TListBoxItem.Create(cmb1);  aItem.Tag := TJAlertDialog.JavaClass.THEME_DEVICE_DEFAULT_LIGHT;  aItem.Text := 'THEME_DEVICE_DEFAULT_LIGHT';  cmb1.AddObject(aItem);
  aItem := TListBoxItem.Create(cmb1);  aItem.Tag := TJAlertDialog.JavaClass.THEME_HOLO_DARK;  aItem.Text := 'THEME_HOLO_DARK';  cmb1.AddObject(aItem);
  aItem := TListBoxItem.Create(cmb1);  aItem.Tag := TJAlertDialog.JavaClass.THEME_HOLO_LIGHT;  aItem.Text := 'THEME_HOLO_LIGHT';  cmb1.AddObject(aItem);end;
procedure TForm1.FormResize(Sender: TObject);begin  RebuildOrientation;end;
procedure TForm1.FormShow(Sender: TObject);begin  TmyWindow.StatusBarColor(Self, TAlphaColor($FF2196E0));end;
procedure TForm1.RebuildOrientation;begin  Content.Margins.Top := TmyWindow.StatusBarHeight;end;
initialization
  TmyWindow.Init;
end. 

相关阅读 >>

Delphi idhttp控件：get/post 请求

Delphi 屏蔽汉字，年月日，时间，银行卡正则表达式

Delphi qq尾巴病毒的编写

md5unit.pas

Delphi获取文件大小

Delphi xe10.1 引用计数

Delphi中exit,abort,break,continue,halt,runerro 的区别

Delphi 中 unicode 转汉字 函数

Delphi 枚举所有电脑磁盘

Delphi 双击隐藏tabsheet

更多相关阅读请进入《Delphi》频道 >>