（37）uniGUI for Delphi UniSweetAlert控件详解

(中行雷威2019.12.19)

（同一个世界，同一个梦想，交流学习C++Builder and Delphi XE10，传承c++builder and Delphi的魅力！欢迎各地朋友加入我的QQ群484979943、299497712,860634510，进群密码“BCB”，同时也请将该群号广为宣传，希望能够广集各方高手，共同进步。如需下载开发工具及源代码请加入我的QQ群。）

【阅读倡议】

1、有问题请留言;

2、没问题请点赞;

3、看连载请加群;

4、下源码请加群;

【开发工具】

1、C++Builder and Delphi 10.3.3

2、FMSoft_uniGUI_Complete_Professional_1.70.0.1514（正版）

本人主笔的国内第一本uniGUI教学案例代码已诞生，分为cbuilder和delphi两个版本，买代码送手册，需要的朋友可以加入我的QQ技术交流群484979943、299497712,860634510给我（群主）留言。资料简介：

https://www.meipian.cn/20b86ayo?share_from=others&user_id=64168117&uuid=a8a75af8c0cc31e6a21b8a79a2b07398&share_depth=1&first_share_uid=64168117&utm_medium=meipian_android&share_user_mpuuid=94b70e99e8b6986c71b270a9883befb2
 

5.32如何使用UniSweetAlert控件

         UniSweetAlert是UniGUI后期版本新增的一个界面友好的消息提示和输入控件，是ShowMessageN的升级版，UniSweetAlert增加了更多的可控制属性。

5.32.1 属性介绍

1、AlertType：提示类型，分为atError、atSuccess、atInfo、atQuestion、atWarning五种类型，主要控制提示界面顶部的图标样式；

2、AllowEscapeKey：是否允许Esc键关闭提示界面；

3、AllowOutsideClick：是否允许点击提示框外部区域关闭提示界面；

4、Animation：动画；

5、CancellButtonText：取消按钮中文内容；

6、ConfirmButtonText：确认按钮中文内容；

7、FocusCancel：焦点定位到取消按钮上；

8、Images：关联的图标控件，提示框中上数第二个图标；

9、InputType：输入类型，有ltNone、ltFile、ltMail、ltSelect、ltPassword、ltRaido等多种类型；

10、InputValue：初始显示的输入内容；

11、ReverseButtons：反向顺序摆放按钮，“确认”“取消”变为“取消”“确认”；

12、ShowCancellButton：显示取消按钮；

13、ShowCloseButton:显示提示框右上角的关闭按钮；

14、ShowConfirmButton：显示确认按钮；

15、ShowLoaderOnConfirm：显示确认前的预处理过程；

16、Title：提示信息；

         创建一个新项目，按照下图添加和摆放各个控件，分别设置UniComboBox1、UniEdit1~4的FieldLabel标签属性，为UniNativImageList1添加一个小图片，让UniSweetAlert1的Images设为UniNativeImageList1，让ImageIndex设为0。三个按钮分别代表不同的应用方法，点击“一般交互提示”按钮将弹出提示框，操作“确认”和“取消”按钮都将提示操作结果；点击“判断执行结果”按钮将弹出提示框，仅操作“确定”按钮有操作结果提示，操作“取消”按钮没有操作结果提示；点击“预处理后执行”按钮将弹出提示框，操作“确定”按钮后将经过一个执行时间后再返回执行结果提示。

  

5.32.2 主要代码main.pas

unit Main;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics,

  Controls, Forms, uniGUITypes, uniGUIAbstractClasses,

  uniGUIClasses, uniGUIRegClasses, uniGUIForm, uniGUIBaseClasses, uniSweetAlert,

  uniButton, uniImageList, uniEdit, uniCheckBox, uniMultiItem, uniComboBox;

 

type

  TMainForm = class(TUniForm)

    UniComboBox1: TUniComboBox;

    UniCheckBox1: TUniCheckBox;

    UniCheckBox2: TUniCheckBox;

    UniEdit1: TUniEdit;

    UniEdit2: TUniEdit;

    UniCheckBox3: TUniCheckBox;

    UniCheckBox4: TUniCheckBox;

    UniEdit3: TUniEdit;

    UniButton1: TUniButton;

    UniButton2: TUniButton;

    UniSweetAlert1: TUniSweetAlert;

    UniNativeImageList1: TUniNativeImageList;

    UniCheckBox5: TUniCheckBox;

    UniButton3: TUniButton;

    UniEdit4: TUniEdit;

    procedure UniButton1Click(Sender: TObject);

    procedure UniButton2Click(Sender: TObject);

    procedure UniButton3Click(Sender: TObject);

    procedure UniSweetAlert1Confirm(Sender: TObject);

    procedure UniSweetAlert1PreConfirm(Sender: TObject; var Result: Boolean;

      var ErrorString: string);

    procedure UniSweetAlert1Dismiss(Sender: TObject;

      const Reason: TDismissType);

  private

    procedure ConfigSweetAlert(const ShowLoader: Boolean = False);//添加SweetAlert属性配置函数

    { Private declarations }

  public

    { Public declarations }

  end;

function MainForm: TMainForm;

implementation

{$R *.dfm}

uses

  uniGUIVars, MainModule, uniGUIApplication;

function MainForm: TMainForm;

begin

  Result := TMainForm(UniMainModule.GetFormInstance(TMainForm));

end;

 

1、UniSweetAlert属性配置

procedure TMainForm.ConfigSweetAlert(const ShowLoader: Boolean = False);

begin

  with UniSweetAlert1 do

  begin

    AlertType := TAlertType(UniComboBox1.ItemIndex);//设置提示类型

    AllowEscapeKey := UniCheckBox1.Checked;//是否允许按ESC

    AllowOutsideClick := UniCheckBox2.Checked;//是否允许外部点击

    CancelButtonText := UniEdit1.Text;//取消按钮的中文内容

    ConfirmButtonText := UniEdit2.Text;//确认按钮的中文内容

    ShowCancelButton := UniCheckBox3.Checked;//是否显示取消按钮

    ShowCloseButton := UniCheckBox4.Checked;//是否显示关闭按钮

    ShowLoaderOnConfirm := ShowLoader;//是否确认前等待

    Title := UniEdit3.Text;//提示信息

 

    if UniCheckBox5.Checked then

    begin

      InputType := ItText;

      InputValue := UniEdit4.Text;

    end

    else

      InputType := ItNone;

  end;

end;

 

2、“一般交互提示”按钮事件

procedure TMainForm.UniButton1Click(Sender: TObject);

begin

  ConfigSweetAlert;

  UniSweetAlert1.Show;//显示提示

end;

 

2、“判断执行结果”按钮事件

procedure TMainForm.UniButton2Click(Sender: TObject);

begin

  ConfigSweetAlert;

  if UniSweetAlert1.Execute then//根据执行结果进行提示

    ShowMessageN('执行结果：成功！ ' + UniSweetAlert1.InputResult);

end;

 

3、“预处理后执行”按钮事件

procedure TMainForm.UniButton3Click(Sender: TObject);

begin

  ConfigSweetAlert(True);

  UniSweetAlert1.Show;

end;

 

4、UniSweetAlert“确认”按钮事件

procedure TMainForm.UniSweetAlert1Confirm(Sender: TObject);

begin

  if UniCheckBox5.Checked then

    begin

      ShowMessageN('确认：你输入了 ' + UniSweetAlert1.InputResult);

    end

  else

    begin

      ShowMessageN('确认');

    end;

end;

5、UniSweetAlert“取消”按钮事件

 

procedure TMainForm.UniSweetAlert1Dismiss(Sender: TObject;

  const Reason: TDismissType);

begin

  case Reason of

    dtOverlay:   ShowMessageN('驳回原因：覆盖');

    dtCancel: ShowMessageN('驳回原因：取消');

    dtClose:  ShowMessageN('驳回原因：关闭');

    dtESC:  ShowMessageN('驳回原因：按了ESC');

    dtTimer:  ShowMessageN('驳回原因：超时');

  end;

end;

6、UniSweetAlert“预处理”按钮事件

 

procedure TMainForm.UniSweetAlert1PreConfirm(Sender: TObject;

  var Result: Boolean; var ErrorString: string);

begin

  Sleep(2000); // 模拟等待!

  Result := True;

  ShowMessageN('确认：你输入了 ' + UniSweetAlert1.InputResult);

end;

 

initialization

  RegisterAppFormClass(TMainForm);

end.