過去の桐井戸端BBS (桐ver.9)
29145 フォームで入力中ENTERをおすと真っ黒になってあたかもデータが消えたようになる 山田 2005/02/25-01:57
毎度お世話になっています。
[タイトル],[文章](=180文字位の文章が入るようにしています)というTBLを作りました。
 タイトルをグループ名としたフォームを作り、[文章]にいろいろ書き込んでいます。
要するに日記帳のようなものです。
 改行は、改行文字を決め、CTRLキーで行っているのですが、つい、そうしないでENTERキーを押してしまうことがしばしばです。
 すると、画面は表示モードになるのはいいのですが、どうも設定した文字数の最下欄へカーソルが移るらしく、
少ない文字数だと、画面が真っ黒になり、あたかもデータが消えたようになってしまいます。
右側のスクロールバーで最上欄へ戻してやらないと、文章が表示されません。
 カーソルが最下欄へ移らないようにはできませんでしょうか。

 どうも、意を尽くせない文章になってしまいましたが、よろしくお願いします。

29150 Re:フォームでの文書項目でENTERをおすと画面が消える うにん 2005/02/25-10:11
記事番号29145へのコメント

> 改行は、改行文字を決め、CTRLキーで行っているのですが、つい、そうしな
>いでENTERキーを押してしまうことがしばしばです。

キーカスタマイズで変更できればいいんですが。。。

> すると、画面は表示モードになるのはいいのですが、どうも設定した文字数
>の最下欄へカーソルが移るらしく、少ない文字数だと、画面が真っ黒になり、
>あたかもデータが消えたようになってしまいます。右側のスクロールバーで最
>上欄へ戻してやらないと、文章が表示されません。

真っ黒とは何事かと思いましたが、要するに項目訂正モードで入力した次の行=空の終端行に移動して
表示モードになっているということでしょうね。

> カーソルが最下欄へ移らないようにはできませんでしょうか。

つい最近「終端行に移動させない方法」が出てたと思うのですが検索しても見つかりませんでした。
単純に「レコード移動」イベントで
条件 (#終端行) ジャンプ 行番号=最終
なんてやってしまうとグループ状態では行の追加ができなくなりますね。

29151 Re:フォームでの文書項目でENTERをおすと画面が消える ONnoji 2005/02/25-10:48
記事番号29150へのコメント
>> カーソルが最下欄へ移らないようにはできませんでしょうか。

おそらく、フォームの上の次のテキストボックスのことでしょうね。

>つい最近「終端行に移動させない方法」が出てたと思うのですが検索しても
>見つかりませんでした。
>単純に「レコード移動」イベントで
>条件 (#終端行) ジャンプ 行番号=最終
>なんてやってしまうとグループ状態では行の追加ができなくなりますね。

見つかりますよ。
過去の桐井戸端BBS (桐ver.9)
26251 フォームで「更新モード」を維持して表示モードへ復帰できないようにしたい
http://www.fuku3.com/~habata/kbbs/kakov9/26251.htm

【グループ状態の対策】
>また、グループ項目のあるフォームでは
>新しいグループを追加して、行を登録した時に
>
>KD1367:絞り込み状態または行集計状態では実行できません
>というエラーになることがあります。
>
>if ( #eof .and #総件数 .and .not #グループ選択状態 )
> ジャンプ 行番号 = 最終
>end


29170 Re:フォームでの文書項目でENTERをおすと画面が消える 尾形 2005/02/26-15:53
記事番号29145へのコメント
どうも、こんにちは

この場合、フォームには[文章]のみようですから

手続き定義開始 t文章::ソース値更新()
メソッド呼び出し @t文章.フォーカス設定()
手続き定義終了


ソース値更新イベントでフォーカスを戻す(移動させない)
ような感じでいいのでないでしょうか

29174 Re:尾形さんの方法でできました 山田 2005/02/26-18:01
記事番号29170へのコメント
尾形さん、
おっしゃるとおりです。そして、お教えいただいたイベントを[文章]へはりつけたら、ENTERを押しても表示モードにならなくなりました。
(イベントを初めて作りました。うん、便利だ。)

うにんさん、ONnojiさん、意を尽くさない質問でご迷惑をおかけしました。
(この投稿欄と同じフォーム入力環境にしたいといえばよかったかな)

今後ともよろしくお願いします。

戻る