Versions Compared

Key

  • This line was added.
  • This line was removed.
  • Formatting was changed.

[ Image Removed |../../index.htm#lansa/l4wdev06_1025.htm]
現在地:

...

このセクションでは、3つのサンプル・フォームを使用します。

FormA - 祖先のコンポーネント

FormAは、保護されたイベントOKPressedとプライベート(隠蔽する)メソッドGetInfoを定義します。

     Begin_
Com Protect
Com Protect(OKPressed)
 Private
 Private(GetInfo)
 Role
 Role(*
EXTENDS #PRIM
EXTENDS #PRIM_FORM)
 

FormB -継承するコンポーネント

FormBは、FormAを継承し、OKPressedイベントをPublicにします。

     Begin_
Com Public
Com Public(OKPressed)
 Role
 Role(*
EXTENDS #FORMA
EXTENDS #FORMA)
 

FormC - オーナー・コンポーネント

FormCは、FormBのオーナで、OKPressedイベントを処理するイベント・ルーチンがあります。

     Define_
Com Class
Com Class(#FORMB)
 Name
 Name(#FORMB)
 
evtroutine  handling

evtroutine  handling(#FORMB.OKPressed)

endroutine
 
 
endroutine 

フォームのユーザー定義のイベント、プロパティ、およびメソッドを作成する場合は、デフォルトではそのフォームを祖先として使用するその他のフォームから見ることができます。

Wiki Markupフォームのユーザー定義のイベント、プロパティ、およびメソッドを作成する場合は、デフォルトではそのフォームを祖先として使用するその他のフォームから見ることができます。 例えば、フォーム(#FRMDETAIL)には、ユーザー定義のプロパティEmployeeを作成します。

     Define_

...

pty name(Employee)

...

 set(*

...

auto #empno) get(*

...

auto #empno) help('Use the Employee property to pass the employee number')

カスタム定義のイベントとしてOKPressedを作成します。

     define_evt name(OKPressed)

カスタム定義のメソッドとしてGetInfoを作成します。

     mthroutine name(GetInfo)
   fetch fields(#detflds) from_file(pslmst)

...

 with_key(#empno)
endroutine

OKPressedイベントは、詳細タブのイベントタブで見ることができます。Employeeプロパティは、 endroutine    OKPressedイベントは、詳細タブのイベントタブで見ることができます。Employeeプロパティは、\[機能\]タブで見ることができます。

Image Added

GetInfoメソッドは、詳細タブのメソッドタブで見ることができます。

!worddavaf485e25f57cd86bb5b0fc63f3f1b1cc.png|height=32,width=32! GetInfoメソッドは、詳細タブのメソッドタブで見ることができます。 ここでこのフォーム(FRMDETAIL)を他のフォームの祖先として使用すると、ユーザー定義のイベント、メソッド、およびプロパティを定義するためのコードは表示されませんが、イベント、メソッド、およびプロパティは詳細タブかヘルプで表示され、継承するフォームのコードで祖先のフォームと同じように使用できます。 [ !worddavaf485e25f57cd86bb5b0fc63f3f1b1cc.png|height=32,width=32! |../../index.htm#lansa/l4wdev06_1025.htm]