| どうも、およよさん
いつのまにか、質問者と回答者が入れ替わってる気が・・・ まぁ、いいですよ (^^ゞ
> 手続き定義開始 フォーム::システムキーダウン(長整数 &仮想キーコード,長整数 &スキャンコード,長整数 &フラグ,参照 長整数 &処理中止) > 条件 (&仮想キーコード=115) 確認 #STR(&処理中止) > 手続き定義終了
単に、キー変換が抜けているからなのでは? 条件を If ( &仮想キーコード = 115 ) Method @フォーム.KeyTranslate( 7 ) フォーム呼び出し ***.wfm &処理中止 = 1 Else Method @フォーム.KeyTranslate( 0 ) End にしてみてください。
Method メソッド 、 KeyTranslate キー変換
説明ははしょりますが、キー変換のヘルプを見てください。
|