说明: 若要使用当前自定义对话框,只需把单元文件加入工程. 调用ShowMsg函数,定义如下: function ShowMsg(Text:String;Caption:String= 软件名称 ;OptionText:string= 详细的信息 ;ShowType:Integer=SB_OK;ShowIcon:integer=1;ShowTime:Integer=-1): Integer; Text//显示内容 Caption//显示的标题 OptionText//下拉框的内容,若没有可不填 Sho
<chenxh> 在 上传 | 大小:242688