Page History
[ 
|../../index.htm#lansa/l4wdev06_0980.htm]
現在地:
...
ボタンなどのコンポーネントから再利用可能パーツを継承する方法を見るために、パネル・タイプの再利用可能パーツ(この例ではEOEXAM20)を作成し、このパーツのAncestorをボタン(#PRIM_PHBN)にします。
...
継承の情報を見るには、必ずエディターの
...
[LANSA
...
の設定
...
]
...
で
...
[拡張機能の表示
...
]
...
オプションが選択されていることを確認してください。
...
PRIM_PHBNをAncestorに設定します。
...
次にコンポーネントをサイズ変更し、以下のボタンのようにします。
ボタンのプロパティの設定
再利用可能パーツのすべてのプロパティを見るには、[詳細]タブを表示します。ボタンのすべてのプロパティが表示されます(Ancestorがボタンなため)。CaptionをButton
...
Aに変更し、ButtonsをGroupプロパティに選択します。
...
ボタンの再利用可能パーツには、以下のキャプションが表示されます。
イベント・ルーチンの作成
最後に、クリックされたときにメッセージ・ボックスを表示するボタンのClickイベントのイベント・ルーチンを作成します。メッセージ・ボックスには、再利用可能パーツの名前が表示されます。
EVTROUTINE HANDLING(#COM_OWNER.Click)
...
Use Message_Box_
...
Show (
...
ok Ok Info 'The Button Is:'#Com_Owner.Name)
...
(#Std_Obj)
...
ENDROUTINE
...
再利用可能パーツをコンパイルします。
...
ボタンの再利用可能パーツのソース
...
ボタンの再利用可能パーツのソースは、以下のようになります。
FUNCTION OPTIONS(*DIRECT)
...
BEGIN_
...
COM ROLE(*
...
EXTENDS #PRIM_PHBN)
...
CAPTION('
...
Button A')
...
DISPLAYPOSITION(1)
...
HEIGHT(28)
...
LEFT(0)
...
TABPOSITION(1)
...
TOP(0)
...
WIDTH(128)
...
EVTROUTINE HANDLING(#COM_OWNER.Click)
...
Use Message_Box_
...
Show (
...
ok Ok Info 'The Button Is:'#Com_Owner.Name)
...
(#Std_Obj)
...
ENDROUTINE
...
END_COM
...