祖先のフォーム#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(HandleFileOpen) OPTIONS(*REDEFINE)
Use Message_Box_Show (ok Ok Info #Com_Self.Name 'Descendant HandleFileOpen method invoked') (#Std_Obj)
Endroutine
フォームをコンパイルし、実行します。ファイルメニューから開くオプションを選択します。再定義されたメッセージ・テキストが表示されます。