まず文法は・・・
DEFINE ENTRYFIELD <オブジェクト名> OF PANEL1 ;
AT ???.0, ???.0 WIDTH ??.0 ;
PROLOGUE PROオブジェクト() ;
VALID VALオブジェクト() ;
NOTVALID NOTVALオブジェクト()
＜動作＞
まずPROLOGUEで定義された関数を実行します。
入力を行い、抜ける前にVALID()の判定を実行します
.T.のときはそのまま終了し次の部品へ移動しますが、.F.のときはNOTVALID()を実行します
次のような制約がありますので、注意して下さい
・PROLOGUE()／VALID()では、カーソルが止まるようなパネルやダイアログを使用するのは
禁止事項（やってはいけない事）になっています。PROLOGUE()でダイアログを使用しても
動いてしまいました。（使用するときは、各ユーザーの責任のもとでお願いします。）
サブ画面を用意できるのは、NOTVALID()で呼ばれたときだけです
DOS版ARAGOのときはNOTVALID()が存在していませんでした。WINDOWSの制約により
追加された機能です。DOS版で動作していたPRGを書き換えるときには、修正が必要です
・NOTVALID()で定義できる部品には制約があります
MESSAGEBOXを使用した場合には、そのままENTRYの入力に復帰しますが
WAITやDIALOGを使用すると、NOTVALID終了時にPROLOGUE()を再度実行してしまいます
実際にＰＲＧを作成してみると、MESSAGEBOXだけでは満たされない事があります
次に例を挙げてみます
例１）
ENTRYFIELDで＠を入力されたら、補足項目を入力したい
その時は BROWSEやLISTBOXもしくはCOMBOBOXを使用してみたい・・・DIALOGが必要ですね
すると、ENTRYには必ず＠が入っている為、VALID()は必ず.F.を返します
NOTVALIDによりサブ画面は表されますが、この部品から抜けられなくなります
次に変数と併用した場合はどうなるでしょうか？
PROLOGUEで「通過回数=0」と、初期化しておきます
VALIDでは 通過回数=0 .AND. AT("@",ENTRY)>0 という判断をして.F.を返してみます
・・・１回目は良いのですが、NOTVALID終了時に「通過回数=0」が実行されてしまい
何度も補助画面が表示される事になってしまいます
回避する方法ですが、「通過回数=0」をPROLOGUEで行わず、メインからの ON_SELECTION
で呼ばれるサブなどで、初期化しておきます。
マウスなどでフォーカスを急に変更されても、１回位は初期化されるでしょうから
まず動作すると思います。
難点としては、部品としての移植が不便になる点です。後でコードを修正する際にも、
煩雑になっており、判りにくいプログラムになってしまいます。