秋·风

  博客园 :: 首页 :: 博问 :: 闪存 :: 新随笔 :: 联系 :: 订阅 订阅 :: 管理 ::
  278 随笔 :: 0 文章 :: 308 评论 :: 20万 阅读
< 2025年3月 >
23 24 25 26 27 28 1
2 3 4 5 6 7 8
9 10 11 12 13 14 15
16 17 18 19 20 21 22
23 24 25 26 27 28 29
30 31 1 2 3 4 5

使用DPFJAlertDialog控件时发现DPFJAlertDialog1Click不能捕获到对话框到底按了那个按键,上网搜索后找到了解决方法:

打开DPF.Android.JAlertDialog.pas文件,找到procedure TAlertDialogOnClickListener.onClick( P1: JDialogInterface; P2: Integer )

然后按下面的方法修改就可以。

procedure TAlertDialogOnClickListener.onClick( P1: JDialogInterface; P2: Integer );
begin
  FDPFJAlertDialog.FClickedIndex := P2;
  FDPFJAlertDialog.FOnClick(FDPFJAlertDialog, P2, nil);//增加这行
  P1.dismiss;
end;

另外,发现.DPFJAlertDialog1Click中的ButtonIndex不是从0开始,在android 4.42运行时发现第一个按键是-1,第二个按键是-2,其它版本android没有测试。

//**********************************************************

procedure TFProgressDialog.DPFJAlertDialog1Click(Sender: TObject;
  ButtonIndex: Integer; TextResults: TArrayOfString);
begin
  DPFJButton1.Text:=ButtonIndex.ToString;
end;

procedure TFProgressDialog.DPFJButton1Click( Sender: TObject );
begin
  Timer1.Enabled := false;
     CallInUIThreadAndWaitFinishing(
     procedure
     begin
       DPFJAlertDialog1.ShowMessageDialog( '', 'Progress Dialog Canceled!', ['Yes','No'] )
     end );
end;

posted on   秋·风  阅读(645)  评论(0编辑  收藏  举报
编辑推荐:
· 从 HTTP 原因短语缺失研究 HTTP/2 和 HTTP/3 的设计差异
· AI与.NET技术实操系列:向量存储与相似性搜索在 .NET 中的实现
· 基于Microsoft.Extensions.AI核心库实现RAG应用
· Linux系列:如何用heaptrack跟踪.NET程序的非托管内存泄露
· 开发者必知的日志记录最佳实践
阅读排行:
· TypeScript + Deepseek 打造卜卦网站:技术与玄学的结合
· Manus的开源复刻OpenManus初探
· AI 智能体引爆开源社区「GitHub 热点速览」
· 从HTTP原因短语缺失研究HTTP/2和HTTP/3的设计差异
· 三行代码完成国际化适配,妙~啊~
点击右上角即可分享
微信分享提示