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 access技巧集

Delphi trayicon1如何把窗体关闭到系统托盘

Delphi 提升进程令牌

Delphi 关于字符串, 之前没这样用过

Delphi 实现 托动pagecontrol上的标签页

Delphi 提取字符中的数字

Delphi 使用代理服务器

设定Delphi环境选项

Delphi firdac 对 sqlite 数字, int64也会被截断，会出现负数情况处理

Delphi流的操作

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

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