ItemHintText イベント
ItemHintTextはヒント用のテキストが取り出された時に起動します。
ItemHintTextイベントは項目のヒントが取り出された時に起動するイベントです。 これはカーソルが項目の上に移動した時に、少しの遅れを取って起動されます。
Captionパラメータに値を割り当てて、ヒントのテキストを提供します。
次の例はリスト欄のテキストを連結し、項目のヒントに表示します。 この例をコピーしてフォームに貼り付けることもできます。
Function Options(*DIRECT)
Begin_Com Role(*EXTENDS #PRIM_FORM) Height(395) Left(402) Top(108) Width(411)
Define_Com Class(#PRIM_LTVW) Name(#LISTVIEW) Displayposition(1) Fullrowselect(True) Height(337) Left(24) Parent(#COM_OWNER) Showitemhint(True) Tabposition(1) Top(8) Width(353)
Define_Com Class(#PRIM_LVCL) Name(#LVCL_1) Displayposition(1) Parent(#LISTVIEW) Source(#EMPNO) Width(18)
Define_Com Class(#PRIM_LVCL) Name(#LVCL_2) Displayposition(2) Parent(#LISTVIEW) Source(#ADDRESS1) Width(48)
Define_Com Class(#PRIM_LVCL) Name(#LVCL_3) Displayposition(3) Parent(#LISTVIEW) Source(#POSTCODE) Width(20) Widthtype(Remainder)
Define_Com Class(#PRIM_LVCL) Name(#LVCL_4) Parent(#LISTVIEW) Source(#SURNAME) Visible(False) Width(20)
Define_Com Class(#PRIM_LVCL) Name(#LVCL_5) Parent(#LISTVIEW) Source(#GIVENAME) Visible(False) Width(20)
Define_Com Class(#PRIM_LVCL) Name(#LVCL_6) Parent(#LISTVIEW) Source(#PHONEBUS) Visible(False) Width(20)
Define_Com Class(#PRIM_LVCL) Name(#LVCL_7) Parent(#LISTVIEW) Source(#ADDRESS2) Visible(False) Width(20)
Define_Com Class(#PRIM_LVCL) Name(#LVCL_8) Parent(#LISTVIEW) Source(#ADDRESS3) Visible(False) Width(20)
Evtroutine Handling(#COM_OWNER.Initialize) Options(*NOCLEARMESSAGES *NOCLEARERRORS)
Select Fields(*ALL) From_File(PSLMST)
Add_Entry To_List(#LISTVIEW)
Endselect
Endroutine
Evtroutine Handling(#LISTVIEW.ItemHintText) Options(*NOCLEARMESSAGES *NOCLEARERRORS) Caption(#UseCaption)
Use Builtin(BCONCAT) With_Args('This employee is named' #GIVENAME #SURNAME 'and has phone number' #PHONEBUS) To_Get(#SYSVAR$AV)
Use Builtin(BCONCAT) With_Args(#SYSVAR$AV 'and lives at' #ADDRESS1 #ADDRESS2 #ADDRESS3) To_Get(#SYSVAR$AV)
Set Com(#UseCaption) Value(#SysVar$av)
Endroutine
End_Com