Page History
祖先のフォーム#EOEXAM01には、ファイルメニューの開くダイアログ・ボックスが選択されたときにメッセージ・ボックスを開くメソッド・ルーチンが含まれます。
Mthroutine HandleFileOpen
Use Message_Box_Show (ok Ok Info #Com_Owner.Name 'Ancestor HandleFileOpen method invoked') (#Std_Obj)
Endroutine
継承するフォームでファイルメニューの開くオプションが選択されると、完全に同じメッセージが表示されます。
[ 
|../../index.htm#lansa/l4wdev06_0960.htm]
現在地:
...
祖先のフォーム#EOEXAM01には、ファイルメニューの開くダイアログ・ボックスが選択されたときにメッセージ・ボックスを開くメソッド・ルーチンが含まれます。
Mthroutine HandleFileOpen Use Message_Box_Show (ok Ok Info #Com_Owner.Name 'Ancestor HandleFileOpen method invoked') (#Std_Obj) Endroutine
継承するフォームでファイルメニューの開くオプションが選択されると、完全に同じメッセージが表示されます。
継承するフォームで祖先のメソッドを変更する場合があります。このためには、メソッド・ルーチンと*REDEFINEオプションを使用します。
この動作を見るために、メッセージ・テキストを「Descendant HandleFileOpen method invoked」に変更し、祖先のフォームのHandleFileOpenメソッドをオーバーライドする継承フォーム#EOEXAM02にメソッド・ルーチンを追加します。 MTHROUTINE NAME
MTHROUTINE NAME(HandleFileOpen)
...
OPTIONS(*REDEFINE)
...
Use Message_Box_
...
Show (ok Ok Info #Com_Self.
...
Name 'Descendant HandleFileOpen method invoked')
...
(#Std_Obj)
...
Endroutine
フォームをコンパイルし、実行します。ファイルメニューから開くオプションを選択します。再定義されたメッセージ・テキストが表示されます。
[ |../../index.htm#lansa/l4wdev06_0960.htm]
