DELPHI盒子
!实时搜索: 盒子论坛 | 注册用户 | 修改信息 | 退出
检举帖 | 全文检索 | 关闭广告 | 捐赠
技术论坛
 用户名
 密  码
自动登陆(30天有效)
忘了密码
≡技术区≡
DELPHI技术
lazarus/fpc/Free Pascal
移动应用开发
Web应用开发
数据库专区
报表专区
网络通讯
开源项目
论坛精华贴
≡发布区≡
发布代码
发布控件
文档资料
经典工具
≡事务区≡
网站意见
盒子之家
招聘应聘
信息交换
论坛信息
最新加入: 33227
今日帖子: 17
在线用户: 13
导航: 论坛 -> DELPHI技术 斑竹:liumazi,sephil  
作者:
男 lumix1983 (cola) ▲▲▲▲△ -
普通会员
2014/2/11 20:07:51
标题:
Delphi xe5 這種message要怎麼實現? 浏览:3243
加入我的收藏
楼主: delphi xe5要怎麼實現正在查詢....正在處理...等等的訊息視窗
不知道有沒有前輩可以Demo個簡單的範例做參考...感激不盡
按此在新窗口浏览图片
----------------------------------------------
-
作者:
男 happyhills (老妖) ▲▲▲▲△ -
普通会员
2014/2/11 21:23:46
1楼: java android里面很简单,很多样。
在java里是alertdialog,在DELPHI中暂时还没有找到。
我也想知道哦。
----------------------------------------------
-文科男,程序员。
作者:
男 lumix1983 (cola) ▲▲▲▲△ -
普通会员
2014/2/11 21:53:45
2楼: 如果用ProcessMessage可以做到嗎???
----------------------------------------------
-
作者:
男 happyhills (老妖) ▲▲▲▲△ -
普通会员
2014/2/11 22:10:49
3楼: 我也在想搞明白,怎么把JAVA里面的东西搬过来。
ProgressDialog mypDialog=new ProgressDialog(this);
//实例化
mypDialog.setProgressStyle(ProgressDialog.STYLE_SPINNER);
//设置进度条风格,风格为圆形,旋转的
mypDialog.setTitle("Google");
//设置ProgressDialog 标题
mypDialog.setMessage(getResources().getString(R.string.second));
//设置ProgressDialog 提示信息
mypDialog.setIcon(R.drawable.android);
//设置ProgressDialog 标题图标
mypDialog.setButton("Google",this);
//设置ProgressDialog 的一个Button
mypDialog.setIndeterminate(false);
//设置ProgressDialog 的进度条是否不明确
mypDialog.setCancelable(true);
//设置ProgressDialog 是否可以按退回按键取消
mypDialog.show();
//让ProgressDialog显示


delphi中有JNI,不会用。
----------------------------------------------
-文科男,程序员。
作者:
男 wang_80919 (Flying Wang) ★☆☆☆☆ -
普通会员
2014/2/12 9:13:33
4楼: ①FireMonkey[DELPHI]XE5  165232328
群共享里有 如何 翻译 JAVA JNI 到 PASCAL 的文档。

但是 FMX 和 JNI 的 UI 对象暂时还不兼容。容易死机。
----------------------------------------------
(C)(P)Flying Wang
作者:
男 tintin1943 (零输好) ★☆☆☆☆ -
盒子活跃会员
2014/2/12 16:04:38
5楼: 自己弄一个带参数的 ShowModal,带回调函数
----------------------------------------------
不喧哗 自有声 心静 思远 志行千里
作者:
男 happyhills (老妖) ▲▲▲▲△ -
普通会员
2014/2/13 22:15:21
6楼: unit uWorking;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls,
  FMX.Objects;

type
  TWorkingForm = class(TForm)
    WorkingPanel: TRectangle;
    GrayBox: TRectangle;
    WorkingLBL: TLabel;
    AniIndicator: TAniIndicator;
    bgImage: TImage;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  WorkingForm: TWorkingForm;

implementation

{$R *.fmx}

procedure TWorkingForm.FormCreate(Sender: TObject);
begin
       {$IFDEF IOS}
       WorkingForm.bgImage.Visible := False;
       {$ENDIF}
end;




WorkingMsg('Loading...',True);
----------------------------------------------
-文科男,程序员。
作者:
男 happyhills (老妖) ▲▲▲▲△ -
普通会员
2014/2/14 8:37:59
7楼:
WorkingMsg(Text: String; Working: Boolean);
begin
  if Working=True then
     begin
       Application.ProcessMessages;
       {$IFDEF ANDROID}
       WorkingForm.bgImage.Bitmap.Assign(TabControl1.MakeScreenshot);
       {$ENDIF}
       WorkingForm.Show;
       WorkingForm.AniIndicator.Enabled := True;
       WorkingForm.WorkingLBL.Text := Text;
     end
   else
     begin
       WorkingForm.AniIndicator.Enabled := False;
       WorkingForm.WorkingLBL.Text := Text;
       WorkingForm.Close;
       {$IFDEF ANDROID}
       WorkingForm.bgImage.Bitmap.Assign(nil);
       {$ENDIF}
       TabbedwithNavigationForm.Show;
     end;
----------------------------------------------
-文科男,程序员。
作者:
男 fenglijun (delphicdwww) ★☆☆☆☆ -
普通会员
2014/2/14 8:42:27
8楼: 这种提示在处理大数量的情况下比较有用,收录下,谢谢
----------------------------------------------
-delphi1,2,3,4(正版4.5wrmb),6,7。。。xe6
作者:
男 lumix1983 (cola) ▲▲▲▲△ -
普通会员
2014/2/27 21:29:39
9楼: happyhills 前輩,可以PO一個Demo的專案檔供我參考嗎,因為我是新手
----------------------------------------------
-
作者:
女 blbz (冰力不足) ★☆☆☆☆ -
禁用账号
2014/2/28 14:59:34
10楼: ……
被禁用帐号,帖子内容自动屏蔽!
……

----------------------------------------------
SPAM
作者:
女 blbz (冰力不足) ★☆☆☆☆ -
禁用账号
2014/2/28 15:03:05
11楼: ……
被禁用帐号,帖子内容自动屏蔽!
……
此帖子包含附件:
PNG 图像
大小:2,634B
----------------------------------------------
SPAM
作者:
女 blbz (冰力不足) ★☆☆☆☆ -
禁用账号
2014/2/28 15:15:43
12楼: ……
被禁用帐号,帖子内容自动屏蔽!
……

----------------------------------------------
SPAM
作者:
男 tp26021340 (锦) ★☆☆☆☆ -
普通会员
2014/10/24 11:54:42
13楼: @ 冰力不足  分享一下下了
----------------------------------------------
XE7 安卓手机框架、IOS手机框架开发,联系QQ:2403182533
作者:
男 tp26021340 (锦) ★☆☆☆☆ -
普通会员
2014/10/24 13:41:17
14楼: 在安卓上,效果不会动
----------------------------------------------
XE7 安卓手机框架、IOS手机框架开发,联系QQ:2403182533
作者:
男 ying32 (唯有此生) ▲▲▲▲▲ -
普通会员
2014/10/24 18:59:44
15楼: 以前我自己翻译过安卓的在u8860机器上测试通过的,
没有写得太好,近来也没有搞过了,
看看能帮助你么
http://blog.csdn.net/zyjying520/article/details/26159555
----------------------------------------------
一个热爱delphi的人,Golang GUI库。 --我的博客--
作者:
男 hq200306 (200306) ★☆☆☆☆ -
普通会员
2014/10/24 19:11:35
16楼: mark
----------------------------------------------
-
作者:
男 lsuperxe (delphi lsuperxe) ▲▲▲▲△ -
普通会员
2014/10/24 19:23:49
17楼: 看看,
----------------------------------------------
2CCC
信息
登陆以后才能回复
Copyright © 2CCC.Com 盒子论坛 v3.0.1 版权所有 页面执行148.4375毫秒 RSS