|
|
导航: |
论坛 -> DELPHI技术
斑竹:liumazi,sephil |
|
作者: |
|
2014/2/11 20:07:51 |
标题: |
Delphi xe5 這種message要怎麼實現? |
浏览:3243 |
|
加入我的收藏 |
楼主: |
delphi xe5要怎麼實現正在查詢....正在處理...等等的訊息視窗 不知道有沒有前輩可以Demo個簡單的範例做參考...感激不盡
----------------------------------------------
- |
作者: |
|
2014/2/11 21:23:46 |
1楼: |
java android里面很简单,很多样。 在java里是alertdialog,在DELPHI中暂时还没有找到。 我也想知道哦。
----------------------------------------------
-文科男,程序员。
|
作者: |
|
2014/2/11 21:53:45 |
2楼: |
如果用ProcessMessage可以做到嗎???
----------------------------------------------
-
|
作者: |
|
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,不会用。
----------------------------------------------
-文科男,程序员。
|
作者: |
|
2014/2/12 9:13:33 |
4楼: |
①FireMonkey[DELPHI]XE5 165232328 群共享里有 如何 翻译 JAVA JNI 到 PASCAL 的文档。
但是 FMX 和 JNI 的 UI 对象暂时还不兼容。容易死机。
----------------------------------------------
(C)(P)Flying Wang
|
作者: |
|
2014/2/12 16:04:38 |
5楼: |
自己弄一个带参数的 ShowModal,带回调函数
----------------------------------------------
不喧哗 自有声 心静 思远 志行千里
|
作者: |
|
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);
----------------------------------------------
-文科男,程序员。
|
作者: |
|
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;
----------------------------------------------
-文科男,程序员。
|
作者: |
|
2014/2/14 8:42:27 |
8楼: |
这种提示在处理大数量的情况下比较有用,收录下,谢谢
----------------------------------------------
-delphi1,2,3,4(正版4.5wrmb),6,7。。。xe6
|
作者: |
|
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楼: |
…… 被禁用帐号,帖子内容自动屏蔽! ……
此帖子包含附件:
大小:2,634B |
----------------------------------------------
SPAM
|
作者: |
blbz (冰力不足) |
★☆☆☆☆ |
-
|
禁用账号 |
|
2014/2/28 15:15:43 |
12楼: |
…… 被禁用帐号,帖子内容自动屏蔽! ……
----------------------------------------------
SPAM
|
作者: |
|
2014/10/24 11:54:42 |
13楼: |
@ 冰力不足 分享一下下了
----------------------------------------------
XE7 安卓手机框架、IOS手机框架开发,联系QQ:2403182533
|
作者: |
|
2014/10/24 13:41:17 |
14楼: |
在安卓上,效果不会动
----------------------------------------------
XE7 安卓手机框架、IOS手机框架开发,联系QQ:2403182533
|
作者: |
|
2014/10/24 18:59:44 |
15楼: |
以前我自己翻译过安卓的在u8860机器上测试通过的, 没有写得太好,近来也没有搞过了, 看看能帮助你么 http://blog.csdn.net/zyjying520/article/details/26159555
----------------------------------------------
一个热爱delphi的人,Golang GUI库。 --我的博客--
|
作者: |
|
2014/10/24 19:11:35 |
16楼: |
mark
----------------------------------------------
-
|
作者: |
|
2014/10/24 19:23:49 |
17楼: |
看看,
----------------------------------------------
2CCC
|
|