| ■No13884に返信(ONnojiさんの記事)
> メッセージボックスを表示するように改修しました。
早速の対応ありがとうございます。 体感として、こちらの方が分かりやすいと思います。 オペレーターにも火曜日に感想を聞いてみます。 > ご自身でメッセージの文言を変更したい場合には、 > プロシージャ(一般手続き)の cmd訂正を許可するClick( )の変数:&msg を変更してください。 > > こちら > ↓ > 手続き定義開始 cmd訂正を許可するClick( 整数 &editingAllow ) > 変数宣言 自動,文字列{ &icon, &title = "cmd訂正を許可するClick( )", &msg } > トレース出力 &title + " 引数:&editingAllow = " + #str( &editingAllow ) > > 変数宣言 自動,文字列{ &formObjectName = #半角( "フォーム" ) } > 条件 ( #変数( "INFmKnjForm" ) ) &formObjectName = #全角( &formObjectName ) > > if ( &editingAllow ) > オブジェクト操作 &formObjectName{ 行訂正 = 1 } > > &msg = "[訂正を許可する]ボタンが【オン(ON)】になりました" > &msg = &msg + "\n" + #複写( "-", 72 ) > &msg = &msg + "\n[訂正を許可する]ボタンが押されました" > &msg = &msg + "\n[F2]キー で訂正できます" > &msg = &msg + "\n[スペース]キーで項目訂正できます" > &msg = &msg + "\n\nボタンが凹んでいる(または"”ひまわり色"”)の時にデータを[訂正]出来ます" > &msg = &msg + "\n<重要>\n必要が無くなったら、もう一度ボタンを押して元に戻してください" > &msg = &msg + "\n※このボタンとは無関係に[行追加]と[行挿入]は常に可能です" > else > オブジェクト操作 &formObjectName{ 行訂正 = 0 } > > &msg = "[訂正を許可する]ボタンが【オフ(OFF)】になりました" > &msg = &msg + "\n" + #複写( "-", 72 ) > &msg = &msg + "\n[訂正を許可する]ボタンが押されました" > &msg = &msg + "\n[F2]キーと[スペース]キーを使ったデータの訂正操作を禁止しました" > &msg = &msg + "\n\nボタンが凹んでいる(または"”ひまわり色"”)の時にデータを[訂正]出来ます" > &msg = &msg + "\n※このボタンとは無関係に[行追加]と[行挿入]は常に可能です" > end > > &icon = "i" > 手続き実行 INFprcMsgPause( &icon, &title, &msg ) > > 手続き定義終了
解説ありがとうございます。 もし、文言を変更したい事があればここを変更し対応します。 > p.s. > >>すみません。 >>私のミスでした。 >>ちゃんとボタン有りました。 > > こういう事が起こりますので、古いファイルはディスクから削除してください。 > はい。今後その様に対応します。 アドバイスありがとうございます。
p.s.
今、三角形の面積を求めるを実際に作っています。 今回の件が無ければ[フォーム+イベント処理+表]の事を勉強しようと思いませんでした。
もっと桐の事を勉強して本当の意味で使いやすい[フォーム+イベント処理+表]を自分でも作れるように精進していきます!
本当に有難うございました!
|