************************************************** *-- Class: hlinktextbox *-- ParentClass: editbox *-- BaseClass: editbox * DEFINE CLASS hlinktextbox AS editbox Height = 107 Width = 266 Name = "hlinktextbox" PROCEDURE RightClick if !empty(this.seltext) and (this.seltext="http://www" ; or this.seltext="www") if at(" ",this.seltext)>0 chref=substr(this.seltext,1,at(" ",this.seltext)) else chref=this.seltext endif DECLARE INTEGER ShellExecute ; IN SHELL32.DLL ; INTEGER nWinHandle, ; STRING cOperation, ; STRING cFileName, ; STRING cParameters, ; STRING cDirectory, ; INTEGER nShowWindow **vfp main windows handle DECLARE INTEGER FindWindow ; IN WIN32API ; STRING cNull, ; STRING cWinName cDir=sys(5)+sys(2003)+"\" z=ShellExecute(FindWindow( 0, _SCREEN.CAPTION), ; "Open", chref, "", cDir, 1) endif ENDPROC ENDDEFINE * *-- EndDefine: hlinktextbox **************************************************HTH