Fabio,

A very neat trick.... I never expected that to work...

Walter,


>>
>>I have a button that opens a form that contains an edit box with a character control source. I would like to set the button's ToolTipText to the value of the cursor/field, in this case, lv_jobitem.citemdesc.
>>
>>Can this be included in an expression that is dynically evaluated by the button or would I have to phsically write the value of the data source to the button's tooltiptext property each time the record changed?
>>
>>If any one can help me, I would be very happy!
>>
>>Thank you,
>>
>>Angie
>
>Of course.
>

>PUBLIC oform1
>
>oform1=NEWOBJECT("form1")
>oform1.Show
>RETURN
>
>DEFINE CLASS form1 AS form
>
>	ShowTips = .T.
>	Caption = "DynamicTooltips"
>
>	ADD OBJECT mytextbox1 AS mytextbox WITH ;
>		Left = 76, ;
>		Top = 56
>
>ENDDEFINE
>
>DEFINE CLASS mytextbox AS TextBox
>	ToolTipText = "TRANSFORM(SECONDS())"
>	PROCEDURE ToolTipText_Access
>		RETURN EVALUATE(m.this.ToolTipText)
>
>ENDDEFINE
>