发信人: foxzz()
整理人: hunter__fox(2002-03-16 22:47:22), 站内信件
|
方法一：
1、在FORM中SHOWTIPS=.T.
2、在表格的TEXT中mousemove事件中：
LPARAMETERS nButton, nShift, nXCoord, nYCoord
IF TYPE('THIS.VALUE')='C' OR TYPE('THIS.VALUE')='M'
this.tooltiptext=alltrim(this.value)
&& 另一选择：wait wind this.value nowait
&& 另一选择：this.statusbartext=alltrim(this.value)
ENDIF
方法二：
IF TYPE('THIS.VALUE')='C' OR TYPE('THIS.VALUE')='M'
local m_curvalue
m_curvalue=this.value
local m_savesele
m_savesele=sele()
if used("phrase")
sele phrase
else
sele 0
use phrase
endif
set order to code
seek m_curvalue
if found()
this.tooltiptext=alltrim(name)
endif
sele (m_savesele)
&& this.tooltiptext=alltrim(this.value)
&& 另一选择：wait wind this.value nowait
&& 另一选择：this.statusbartext=alltrim(this.value)
ENDIF
|
|