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 控制台base64加密解密

Delphi取代sleep的延时代码

Delphi监视注册表

Delphi 窗口全屏

Delphi nethttpclient1 数据库查询

Delphi执行sql提示“不正常地定义参数对象”，“提供了不一致或不完整的信息”错误

Delphi 使用webbrowser控件获取含框架的网页的完整html代码

Delphi打开外部程序或文件

Delphi 如何确定活动桌面是否已启用

Delphi udl文件创建

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

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