サブフォームでモーダルウィンドウ

いつもお世話になっております。

・サブフォームを使用したオンラインプログラム（リッチでなく）を
　開発しています。

・サブフォームから親タスクへのマウスクリックを防止したいです。
　（親タスクへは戻るボタン押下した時にもどりたいです）

・ダメ元でサブフォームの子タスクのフォームを
　モーダルにしてみましたが期待通りになりません。

・モーダルウィンドウのような動きに、
　『なるべく簡単に』
　（エラーコマンド等を駆使すれば実現できるのでしょうが・・）
　実現できる方法をご存知であれば、御教示頂きたく。

以上よろしくお願いいたします。

maki さん、こんにちは。

ひょっとして、「サブフォーム」のことではなく、従来の親子フォームの
合成のことでしょうか？本来の「サブフォーム」を使用してみられては
いかがでしょうか？コントロールパレットに「サブフォーム」というのが
あります。

Tandaさん
ご返信ありがとうございます。

・ご指摘の「サブフォーム」を使用しております。

・その「サブフォーム」を利用しつつ、
　サブフォームから、親タスクへのフォームへの
　マウスクリックを防止したいです。

・なにか良い情報あれば、大変ありがたいです。

以上です。

maki さん、こんにちは。

サブフォームは基本的に、親子タスクがあたかもひとつのタスクの
ように動くようにするのがその目的ですので、サブフォーム以外の
部分をクリックできないようにするというのは趣旨に反するような
気がします。サブフォームを使わずに、別の方法を試されたほうが
いいかもしれませんね。

Tandaさん

ご返信の通り、別な方法も検討してみたいと思います。

ありがとうございました。

以上です。

こんにちは

親タスクのフォーム(コントロールが配置されていない箇所)クリックで親へ戻るのを防止するのなら、
子タスクのロジックにウインドウヒットを設定(イベントの中身は空で)するだけでOKです。

コントロールをクリックしても親へ戻るのを防止するのなら、子タスクのロジックにコントロールヒットを
設定(中身は空で)し、コントロールヒットの条件にクリックしても親タスクへ戻りたくないコントロールの
コントロール名をLastClicked()で指定すればOKです。

コントロールヒットでの制御は少し面倒かもしれません。

例えば、親のコントロールのコントロール名の頭2バイトを「A_」として(「A_得意先コード」など)、
子では「B_」とします(「B_商品コード」)。

子タスクのコントロールヒットの条件に「Left(LastClicked(),2)='A_'」を設定すれば、子から親へ戻りません。

追記です。

上記の場合、エディットやテキストなどのコントロールへのクリックによるタスク遷移は防げますが、
ボタンクリック時のイベント発行は防げません。

子から親のボタンクリックで、イベント発行したい時、したくない時ケースバイケースだと思いますが
参考までに。

(イベント発行も抑止したいのなら子タスクにフォーカスしている時は、親のボタンの有効条件をFalseに
する必要があると思います。)

mizunoさん

貴重なアドバイスありがとうございます。
（返信が大変遅くなり、申し訳ございません、）

大変参考になります。ぜひ試してみたいと思います。


以上です。