>thisform.addobject(cimgname, 'Image') > > with evaluate('thisform.' + cimgname) > .visible=.t. > .stretch=1 > .width=75 > .height=75 > .top=tvalue > .left=lnleft > .picture=locfle > .borderstyle=1 > .tooltiptext=alltrim(empname)+iif(!empty(empname),', ','')+alltrim(pos) > endwith >>
DEFINE CLASS MyImage AS Image PROCEDURE Click IF PEMSTATUS(thisform,[ImageClickHandle],5) thisform.ImageClickHandle() ENDIF ENDPROC PROCEDURE DblClick IF PEMSTATUS(thisform,[ImageDblClickHandle],5) thisform.ImageDblClickHandle() ENDIF ENDPROC ENDDEFINEThen create these two methods (ImageClickHandle and ImageDblClickHandle) in every form you use that class and want to handle Click and DblClick events of the Image.