コントロール上でマウスがクリックされた時に起動されます

ラベル (PRIM_MD.Label) のメンバ

ﾊﾟﾗﾒｰﾀｰ

詳細

Click イベントは、マウスが同じコントロールの境界内にあり、ユーザーがマウスの左ボタンを押し、解放する時に起動します。
 
Click イベントはルーティング イベントです。つまり、クリック時にマウスポインタの配下にあるコントロールとともに、親チェーンにある別のコントロールでも検知されるということです。
 
このイベントの Origin パラメータは、イベントのソースを提供し、Handled パラメータは、親チェーンへの伝達を防ぎます。

例

以下の例には 2 つのクリック可能なボタンが存在します。Button2 がクリックされると、Click イベントは handled が True としてフラグされます。
 
そうでなければ、このページの Click イベントが起動します。

Begin_Com Role(*EXTENDS #PRIM_WEB) Height(440) Width(688)
 
   Define_Com Class(#PRIM_PHBN) Name(#Button1) Displayposition(1) Left(128) Parent(#COM_OWNER) Tabposition(1) Top(80) Width(145) Caption('Routed click')
   Define_Com Class(#PRIM_PHBN) Name(#Button2) Caption('Handled click') Displayposition(2) Left(128) Parent(#COM_OWNER) Tabposition(2) Top(117) Width(145)
   Define_Com Class(#PRIM_LABL) Name(#ButtonClick) Caption('Button clicked') Displayposition(3) Ellipses(Word) Height(25) Left(334) Parent(#COM_OWNER) Tabposition(3) Tabstop(False) Top(85) Verticalalignment(Center) Width(203) Alignment(Center) Visible(False)
   Define_Com Class(#PRIM_LABL) Name(#PageClick) Displayposition(4) Ellipses(Word) Height(25) Left(334) Parent(#COM_OWNER) Tabposition(4) Tabstop(False) Top(115) Verticalalignment(Center) Width(203) Caption('Page clicked') Alignment(Center) Visible(False)
 
   Evtroutine Handling(#Button1.Click #Button2.Click) Com_Sender(#Sender) Handled(#Handled)
 
      #PageClick.Visible := False
 
      #ButtonClick.Caption := #Sender.Caption
      #ButtonClick.Visible := True
 
      #Handled := (#Sender *IsEqualTo #Button2)
 
   Endroutine
 
   Evtroutine Handling(#Com_Owner.Click) Origin(#Origin)
 
      #PageClick.Visible := True
      #PageClick := #Origin.Name
      #ButtonClick.Visible := False
 
   Endroutine
 
End_Com
 

参照

すべてのコンポーネント クラス

テクニカルリファレンス

EPC142030 February 2019