熊熊的部落格

功能:當前一個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 裡面的選項才會正常
	)
)