delphi安卓动态切换本地主题

本文整理自网络，侵删。

 
procedure TForm1.btn1Click(Sender: TObject);
begin
Toast('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 调用ie隐藏的命令

elphi中取出字符串中指定位置的几个字符

Delphi 的内存操作函数(6): 跨进程的内存分配

Delphi xe7 /xe7 update1/xe8 安装失败 只能装到27%

Delphi api 函数中使用 pchar 参数的几种方法

Delphi得到字符串中第一个汉字的位置

Delphi的tservice 服务路径获取 dll中获取文件路径

Delphi根据不同分隔符获取字符串内容

Delphi 读url下txt中的下载地址的简单下载者代码

Delphi 静态调用dll和动态调用dll优缺点

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

转载请注明出处：木庄网络博客 » delphi安卓动态切换本地主题