在DeWeb中弹出对话框有以下几种方式：
1、dwShowMessage （消息框）功能：弹出一个对话框，点击“OK”后继续
函数：
procedure dwShowMessage(AMsg:String;AForm:TForm);
参数如下：
（1）AMsg , 字符串型，为拟显示的内容字符串
（2）AForm, 窗体类型，一般为self
代码：
procedure TForm1.Button1Click(Sender: TObject);
begin
dwShowMessage('Hello!',self);
end;
效果：
功能：弹出一个对话框，点击确定按钮后继续。
是dwShowMessage的升级版，区别在于：
（1）支持自定义标题；
（2）支持自定义按钮Caption
（3）消息内容支持HTML字符
函数：
procedure dwShowMsg(AMsg,ACaption,AButtonCaption:String;AForm:TForm);
参数如下：
（1）AMsg , 字符串型，为拟显示的内容字符串，支持HTML字符
（2）ACaption，窗体标题
（3）AButtonCaption，确定按钮的标题
（4）AForm, 窗体类型，一般为self
代码：
procedure TForm1.Button2Click(Sender: TObject);
begin
dwShowMsg('<b>H</b>e<i>ll</i>o!','我的标题','我确定',self);
end;
效果：
功能：弹出一个对话框，3秒后自动消失，支持多种效果
函数：
procedure dwMessage(AMessage,AType:String;AForm:TForm);
参数如下：
（1）AMsg , 字符串型，为拟显示的内容字符串
（2）AType，字符串型，为拟显示弹框的类型，可以为success/info/warning/error
（3）AForm, 窗体类型，一般为self
代码：
procedure TForm1.Button3Click(Sender: TObject);
begin
dwMessage('Hello!','success',self);
end;
效果：
使用：
在界面上放置一个Panel，设置其HelpKeyword为modal
使用时，直接设置Panel的Visible即可。
Visible 为 True 时显示，为 False 时隐藏
显示时，系统会自动先显示一个遮罩层，Panel自动左右居中，顶部与top值相等。
优点：开发速度快，与原背景窗体的数据交互非常方便；
缺点：需要在Panel中增加关闭按钮、标题栏等
效果：
