若要使用当前自定义对话框,只需把单元文件加入工程.调用ShowMsg函数,定义如下:function ShowMsg(Text:String;Caption:String='软件名称';OptionText:string='详细的信息';ShowType:Integer=SB_OK;ShowIcon:integer=1;ShowTime:Integer=-1): Integer;Text//显示内容Caption//显示的标题OptionText//下拉框的内容,若没有可不填ShowType//显示的类型:SB_OK确定 SB_OKCANCEL确定取消 SB_YESNO是否 SB_OKOPTION确定详细ShowIcon//显示的图标在ImageListg中的IDShowTime//显示多久自动关闭,-1时为不限时.用到控件,flatstyleD5,Raize309.Raize309下载地址:http://www.2ccc.com/article.asp?articleid=282[color=#0000FF]使用标准组件的版本请更改最后下载文件名为FYOwnFrame.Std.rar后下载。[/color]作者简介---------------------------------------------------------------|/// //- - //( @ @ )+---------------------!@#$#^$%&^%&%^---------------------+| | | 若在使用过程中发现任何问题或有新的想法请及时与我联系 || || Msn: yxp132@hotmail.com || EMAIL: 132xyz20@163.com || OICQ : 85076500 |+-----------------------ooooO--( )-----------------------+( ) )|/|( (_/_)