uniGUI for Delphi UniSweetAlert控件详解

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

属性介绍

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.