* This code is in the INIT of the instance of the class: WITH THIS .DispPicture = .F. .DispLabel01 = 'Name: ' .DispValue01 = 'Account.FullName' .DispLabel02 = 'Gender: ' .DispValue02 = 'IIF(Account.Sex="M","Male",IIF(Account.Sex="F","Female",""))' .DispLabel03 = 'DOB: ' .DispValue03 = 'Account.DOB' .DispLabel04 = 'Age: ' .DispValue04 = 'THIS.DeriveAge(Account.DOB)' .DispLabel05 = 'Phone: ' .DispValue05 = 'Account.Phone' .DispLabel06 = 'Cell Phone: ' .DispValue06 = 'Account.CellPhone' ENDWITH DODEFAULT() * This code is in the INIT of the class: WITH THISFORM .oPopUpInfoForm = CREATEOBJECT("fm_PopupInfo") .oPopUpInfoForm.ALWAYSONTOP = .T. .oPopUpInfoForm.AUTOCENTER = .T. .oPopUpInfoForm.Visible = .F. m.DisplayTop = 6 m.Top = m.DisplayTop m.DisplayTopIncrement = 18 m.DisplayLabelOffset = 2 m.DisplayLeftLabel = 140 m.DisplayLeftValue = 210 IF !EMPTY(THIS.DispValue01) .oPopUpInfoForm.ADDOBJECT("DispLabel01", "fm_label") .oPopUpInfoForm.DispLabel01.TOP = m.DisplayTop + m.Top + m.DisplayLabelOffset .oPopUpInfoForm.DispLabel01.LEFT = m.DisplayLeftLabel .oPopUpInfoForm.DispLabel01.WIDTH = 50 .oPopUpInfoForm.DispLabel01.CAPTION = THIS.DispLabel01 .oPopUpInfoForm.DispLabel01.VISIBLE = .T. BINDEVENT(.oPopUpInfoForm.DispLabel01,"Click",.oPopUpInfoForm,"Click") BINDEVENT(.oPopUpInfoForm.DispLabel01,"RightClick",.oPopUpInfoForm,"RightClick") .oPopUpInfoForm.ADDOBJECT("DispValue01", "fm_textbox") .oPopUpInfoForm.DispValue01.ENABLED = .F. .oPopUpInfoForm.DispValue01.Display_Only = .T. .oPopUpInfoForm.DispValue01.BORDERSTYLE = 0 .oPopUpInfoForm.DispValue01.TOP = m.DisplayTop + m.Top .oPopUpInfoForm.DispValue01.LEFT = m.DisplayLeftValue .oPopUpInfoForm.DispValue01.WIDTH = 250 .oPopUpInfoForm.DispValue01.BACKSTYLE = 0 .oPopUpInfoForm.DispValue01.VALUE = TRANSFORM(EVALUATE(THIS.DispValue01)) .oPopUpInfoForm.DispValue01.VISIBLE = .T. BINDEVENT(.oPopUpInfoForm.DispValue01,"Click",.oPopUpInfoForm,"Click") BINDEVENT(.oPopUpInfoForm.DispValue01,"RightClick",.oPopUpInfoForm,"RightClick") ENDIF IF !EMPTY(THIS.DispValue02) m.Top = m.Top + m.DisplayTopIncrement .oPopUpInfoForm.ADDOBJECT("DispLabel02", "fm_label") .oPopUpInfoForm.DispLabel02.TOP = m.DisplayTop + m.Top + m.DisplayLabelOffset .oPopUpInfoForm.DispLabel02.LEFT = m.DisplayLeftLabel .oPopUpInfoForm.DispLabel02.WIDTH = 50 .oPopUpInfoForm.DispLabel02.CAPTION = THIS.DispLabel02 .oPopUpInfoForm.DispLabel02.VISIBLE = .T. BINDEVENT(.oPopUpInfoForm.DispLabel02,"Click",.oPopUpInfoForm,"Click") BINDEVENT(.oPopUpInfoForm.DispLabel02,"RightClick",.oPopUpInfoForm,"RightClick") .oPopUpInfoForm.ADDOBJECT("DispValue02", "fm_textbox") .oPopUpInfoForm.DispValue02.ENABLED = .F. .oPopUpInfoForm.DispValue02.Display_Only = .T. .oPopUpInfoForm.DispValue02.BORDERSTYLE = 0 .oPopUpInfoForm.DispValue02.TOP = m.DisplayTop + m.Top .oPopUpInfoForm.DispValue02.LEFT = m.DisplayLeftValue .oPopUpInfoForm.DispValue02.WIDTH = 250 .oPopUpInfoForm.DispValue02.BACKSTYLE = 0 .oPopUpInfoForm.DispValue02.VALUE = THIS.DispLabel02 + TRANSFORM(EVALUATE(THIS.DispValue02)) .oPopUpInfoForm.DispValue02.VISIBLE = .T. BINDEVENT(.oPopUpInfoForm.DispValue02,"Click",.oPopUpInfoForm,"Click") BINDEVENT(.oPopUpInfoForm.DispValue02,"RightClick",.oPopUpInfoForm,"RightClick") ENDIF . . . ENDWITH