功能:當前一個Form視窗執行時,再執行別的命令後,就會將Form視窗自動關閉。
axlCmdRegister("demo" 'fndemo ?cmdType "interactive" ?doneCmd 'fnDone) procedure(fndemo() prog(() ) ) procedure(fndemoBuildForm() let(() ;最後的參數必須為nil ,這樣別的程式執行後會先關閉此工具(執行函數fnDone()) frmDEMO = axlFormCreate('DEMOForm tFormFile '("msgLines" 0) 'fndemoCallBack nil) ) ) procedure(fnDone() let(() dID = 'DEMOForm when(dID && boundp(dID) frmDEMO = eval(dID) when(axlIsFormType(frmDEMO) axlFormClose(frmDEMO) ) ) ;恢復成都沒有選任何選項, ;如果不加入此行時,結束此工具後,Find裡面會保留成此工具最後一次使用的項目 axlSetFindFilter(?enabled '("noall") ?onButtons '("noall")) axlShell("Done") ;必須加入此行,這樣再執行下一個命令時,Find 裡面的選項才會正常 ) )
文章標籤
全站熱搜