VFP中仿MSN的右下角消息提示窗口.doc

VFP中仿MSN的右下角消息提示窗口(转) *!* VFP中仿MSN的右下角消息提示窗口*!* 作者：[MEIZIBBS]RichardWZP 2006.04.14*!* 调用方法：*!* PopWindows(cFrmCap,cFrmIco,nLayer,nWaitTime,cLblCap,cMess)*!* cFrmCap: C型，窗口的标题*!* cFrmIco: C型，窗口图标，若你程序中使用SET PATH设置了搜索路径，此处可以写相对路径*!* nLayer: N型，窗口透明度，最小值0（完全透明），最大值250（完全不透明）*!* nWaitTime: N型，等待时间。以毫秒为单位，1秒=1000毫秒*!* cLblCap: C型，显示信息的标题*!* cMess: C型，要显示的信息*!* 适用VFP版本：VFP6、7、8、9*!* 适用WINDOWS版本98、2K、XP、2003SER*!* 调用示例：popWindows(提醒,E:\gdm_access\PRG\ICO\my computer.ico,200,2000,提醒,欢迎使用+CHR(13)+小小设计) *!* 说明：*!* 1、这只是一个思路，你可以通过此思路创建自己的消息窗口，比如加入图片……*!* 2、因为调用的顶层表单，且设置了透明度，所以不会影响你的基本界面*!* 3、若不希望窗口自动消失，可设置“等待时间”为0；*!* 4、当然，当窗口的EDITBOX获得焦点时，也不会自动消失的（单击表单后消失）*!* 5、编译为EXE为200K，占用内存300K以下（我用DELPHI编译后50K，占用内存30K，为何如此差距？） FUNCTION popWindows LPARAMETERS pcCaption,pcIco,pnLayer,pnWaitTim,pcMesCap,pcMes,plMaxButt,plMinButt PUBLIC oFrmPopWindowoFrmPopWindow=NEWOBJECT(FrmPopWindow)lcStuBar=SET(Status Bar)狐友xs160提供界面问题的解决办法SET STATUS BAR ONoFrmPopWindow.ShowSET STATUS BAR lcStuBar.RETURN DEFINE CLASS FrmPopWindow AS form DataSession = 2AlwaysOnTop=.T.若编译为EXE或APP使用，此属性不用设置，TIMER里有设定，效果会更好（从WINDOWS任务栏后面开始上升）AllowOutput = .F.ShowInTaskbar=.F. Height = 132 Width = 277 BackColor = RGB(255,255,255) BorderStyle = 2 Caption = pcCaption Icon = pcIco MaxButton = plMaxButt MinButton = plMinButt ShowWindow = 2 Visible = .F. Name = FrmPopWindow Layerdd= pnLayer MesCap = pcMesCap Mes = pcMes   PROCEDURE Load this.Left = SYSMETRIC(21) - this.Width - SYSMETRIC(3) * 2 this.Top = SYSMETRIC(22) this.AddProperty(FormHeight,this.Height) this.AddProperty(FormWidth,this.Width) this.AddProperty(FormActive,.T.) ENDPROC  PROCEDURE Click this.formactive = .T. ENDPROC  PROCEDURE Init THIS.MY_setwindow(this.layerdd) this.lblCaption.caption = this.MesCap this.Edit1.value = this.Mes ENDPROC PROCEDURE My_SetWindow LPARAMETERS pnLayer DECLARE INTEGER SetLayeredWindowAttributes IN win32api INTEGER HWND, INTE