イベント

ホーム

4D v16

セルフトレーニング

イベント

ビデオ中で説明した操作に加え、以下の点にも留意してください:

利用できるイベントはオブジェクトにより異なります。例えばボタンオブジェクトでOn Data Changeイベントは利用できません。なぜならボタンの内容 (ボタンラベル) を変更することはできないからです。

いくつかのイベントを紹介します:

On Mouse Enter
マウスがオブジェクトの領域に入ったときに発生します。
On Data Change
フィールドや変数の内容が変更されて、フォーカスが外れる直前に発生します。
このイベントは特に入力検証、フォーマット、重複チェック、クエリや再計算などのために使用されます。
On Clicked
オブジェクトがクリックされたときに発生します (主にボタンやポップアップ、メニューなど)。
入力可能オブジェクトでも利用できます。
On Getting Focus
オブジェクトがフォーカスを得た直後に発生します (オブジェクト内でのクリック、タブキーやプログラムなど)。
On Load
フォームが画面上に表示される直前や印刷される前に発生します。
通常このイベントでフォームの初期化処理を行います。
On Printing Detail
レコードの印刷中に発生します。
例えば値の合計の計算や文字列の結合などを行えます。

これらはイベントのほんの一部です。完全なリストを見るためには4Dのランゲージリファレンスを参照してください。

ここでよく質問されることがあります。「フォームイベントとオブジェクトイベント、どちらのプロパティリストでチェックを入れたらいいですか？」

回答はシンプルです。メソッドを記述したほうにチェックを入れてください。
注: 例外としてOn LoadとOn Unloadがあります。これらのイベントをオブジェクトメソッドで使用するためには、フォームプロパティ中でもこれらのイベントが選択されていなければなりません。

理論的にはフォームメソッドはフォーム全体の処理に関連するコードを記述すべきです:

フォームのサイズ変更
外部プロセスからの呼び出し
オブジェクトの表示/非表示
など

他方オブジェクトメソッドはそのオブジェクト自身に関わるコードを記述すべきです。これは一般的なルールであり、これから外れるためには適切な理由を考慮すべきです。

以下に留意してください:

フォームメソッド: グローバルな処理を集中して記述でき、管理がしやすくなります。
リスクとしては必要以上に呼び出されるようになってしまうかもしれません。例えばフォームメソッドでOn Clickedを有効にすると、On Clickedをサポートするオブジェクト上でクリックが発生するたびにフォームメソッドが呼び出されます。
オブジェクトメソッド: 必要なときにのみ呼び出されます。オブジェクトのコピー＆ペーストに伴って簡単にメソッドも複製できます (特にポインターを使用して汎用的に記述している場合)。

特定の処理はフォームメソッドに移動する必要が出てくるかもしれません。

例えば10個の入力可能なパラメーターに基づき値を再計算する必要がある場合、パラメーターが変更されるたびに再計算を行わなければなりません。10個のパラメーター変数それぞれに同じ式を記述するより、フォームメソッドに一回だけ記述したほうが見通しが良くなります。しかし必要以上に再計算が実行されてしまうかもしれません。特にパラメーター以外のフィールドや変数が変更された場合などです。

イベントが実行される順番を知っていることはとても重要です。例えばボタンの場合、イベントは以下の順番で発生します:

On Mouse Enter
On Mouse Move
On Getting Focus
On Clicked (クリックされた場合)
On Mouse Leave
On Losing Focus

フィールドや変数の場合:

On Mouse Enter
On Mouse Move
On Getting Focus
On Data Change (データが変更された場合)
On Losing Focus
On Mouse Leave

コードを記述する時間を節約し、間違いを少なくするためにマクロの利用を検討してください (“macros.xml”ファイル)

例えば“#$evt”とタイプしたら自動的に以下のようなコードが入力されるようなマクロを設定できます:

 $evt:=Form event

 Case of

    :($evt=On Data Change)

 

    :($evt=On Load)

 

 End case

4Dを学び始めたばかりの場合は、オブジェクトメソッドに処理を記述することをお勧めします。そしてメソッドを汎用化するようにし、最終的に必要であればフォームメソッドに移動したり、プロジェクトメソッドとして記述したりしましょう。ポインターのことも忘れないでください。

さらに先に進むには:
イベントがどのように動作するのか慎重に調べてください。なぜなら適切なイベントを選択することで、あなたのプログラムが正しく動作するようになるからです。

Video script

In this video, we're going to learn how events work and how to program them.

First of all, let's distinguish between:

"form" events that are listed in the form properties
and "database" events that are defined in the properties of a table because they are associated with triggers; in other words, programming that is executed when specific events occur.

Form events are only triggered when a form is used (on screen or when printing), therefore when the interface is being used by a user (clicks, drag-and-drop, selection of menu items, keystrokes and so on).

Database events only concern 3 actions that are performed on the data:

creation
modification
and deletion.

These 3 events are intercepted by the database engine. This is important to note because in Client/Server mode, the database engine runs on the server so you will never see a database event performed on your client machine. You won't be able to trace one from a client machine either. We'll come back to database events later on.

First of all, we're going to have some fun and create a button that's a little "special".

Go to page 4 of the Navigation form, the preferences page
Draw a standard button
Modify its properties as follows:
- Name the button bSpecial
- Only the “On Mouse Enter” event remains checked
Edit its method (ALT-Click on the button)

and enter the following code:

  //Location of the mouse when the method starts

 GET MOUSE($Mouse_H;$Mouse_V;$MouseButton) //Where is the object in the window?

 OBJECT GET COORDINATES(bSpecial;$Obj_L;$Obj_T;$Obj_R;$Obj_B)

 

  //Calculate the center of the object

 $Center_H:=$Obj_L+(($Obj_R-$Obj_L)/2)

 $Center_V:=$Obj_T+(($Obj_B-$Obj_T)/2)

 

 $Shift:=10 //Plan an additional shift of X pixels

 

 If($Mouse_H<$Center_H) //If the mouse is left of center

    $T:=$Mouse_H-$Obj_L+$Shift  //Move the object to the right

 Else //The mouse is right of center

    $T:=-($Obj_R-$Mouse_H+$Shift) //Move object to left

 End if

 If($Mouse_V<$Center_V) //If the mouse is above the center

    $B:=$Mouse_V-$Obj_T+$Shift  //Move downward

 Else //The mouse is below center

    $B:=-($Obj_B-$Mouse_V+$Shift) //Move up

 End if

 

  //Move the button according to the information set above 

 OBJECT MOVE(bSpecial;$T;$B)

this all means that:

we calculate the position of the mouse
and the position of the object (the button) to determine where it's center is
we plan to shift the object a certain number of pixels
and then we're going to calculate where the mouse is with respect to the center of the button, horizontally and vertically
then we can just move the button position

Let's see what this gives us:

Display the form (using the Navigator method)
Go to the preferences page
And try to click on the button.

Each time you get near the button, it moves in the opposite direction (left, right, up or down).

If the button falls off the screen, close the form and start again; the button will re-appear in its initial location.

So that was one example of using events.

Let's look at another one: when entering an intervention, we want to calculate its duration based on the information entered in the start time and end time.

We will need to:

first add an End time field to the table.
To save time, copy the Time field and paste it in the same table and then change its name.
Next we'll add it to the input form by duplicating the start time field and adapting the field concerned: the intervention end time.
We must also add the duration to check that our programming works properly.
Then we must indicate that the duration must be recalculated when one of the time fields is modified.
So we check the "On Data Change" event and indicate the calculation to perform.
Warning: ALT-Clicking on 2 objects that do not have methods only creates the method for the object that was clicked.

The duration is recalculated as being the difference between the end time less the intervention time, on the condition that the end time is filled in (in other words, not zero).

We can copy the code and now create the end time method.

When we're going to modify it: the intervention time must be filled in and the calculation of the duration will always be the same.
Of course, we're going to check that times are enterable and then we'll test on an intervention:

We take all the interventions,
Then we take the first one

The programming was actually executed when we exited the field; in other words, in the context of the "On Data Change" event.

In the next section, we're going to cover programming arrays.