delphi xe 利用FMX控件的MakeScreenshot过程实现WAIT效果


本文整理自网络,侵删。

 利用FMX控件的MakeScreenshot过程实现WAIT效果
原理:

 1、新建一个waitform,添加控件:

    背景图片BACKPIC:Timage控件;

    再叠加一个WAIT图标(TAniIndicato控件)。

 2、在要实现wait效果的form上添加一个控件作为背景工作区(例如TPANEL)。

    需要实现wait效果时,调用TPANEL.MakeScreenshot,替换waitform上的BACKPIC,显示WAIT图标。

    结束时,关闭waitform。

 

关键代码如下:

unit waitform;

interface

uses......;

type

Twaitform= class(TForm)
   WorkingPanel: TRectangle;
   GrayBox: TRectangle;
   WorkingLBL: TLabel;
   AniIndicator: TAniIndicator;
   bgImage: TImage;
private
{ Private declarations }
public
{ Public declarations }
end;

调用主程序:

procedure  waitingMsg(Text: String; Working: Boolean);

begin
if Working=True then
begin
Application.ProcessMessages;
{$IFDEF ANDROID}
waitform.bgImage.Bitmap.Assign(PANEL1.MakeScreenshot);
{$ENDIF}
waitform.Show;
waitform.AniIndicator.Enabled := True;
waitform.WorkingLBL.Text := Text;
end
else
begin
waitform.AniIndicator.Enabled := False;
waitform.WorkingLBL.Text := Text;
waitform.Close;
{$IFDEF ANDROID}
waitform.bgImage.Bitmap.Assign(nil);
{$ENDIF}
mainform.Show;
end;
end;

procedure Tmainform.Button1Click(Sender: TObject);
begin
waitingMsg('wait...',True);
end;

相关阅读 >>

Delphi richedit文字背景色的处理

ttreeview的两个事件ondragdrop、ondragover 实现自动拖放功能

Delphi实现网卡状态检测

Delphi varchar和nvarchar区别

Delphi函数指针,用于加载dll

Delphi 过滤字符串特殊符号的函数

Delphi 对gzip解压

Delphi 取正在运行的dll或exe的路径

Delphi 运行带参数的程序等待其并获取结果

Delphixe 如何调用stringtojstring

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...