この発言は
#01256　ぺけでび        さんのRE:担当者メンテ開発記
に対するコメントです




#1256 ぺけでび さん。こんにちは。
ボードの皆様はじめまして。来月一杯で閉鎖されることになった
SINPRISE の dBASE 会議室で Delphi へ移行するための準備運動
体操をしておりました。よたろうと申します。
これからいろいろと書かせて貰うかと思いますのでよろしくお願
いいたします。

#1252 から順を追って書いていただき、目から鱗がおちるように
大変よく理解できました。ありがとうございました。

> 　で、追加と修正が出来るようになったのが以下のソースです。

早速これを動かしてみました。

> procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
> begin
>   if (key = #13) then begin  // Enterキーか？
>      DataWrite;  // 入力データの登録
>      Edit1.SetFocus;
      Edit1.Text := ''; // ヌルをセット
      Edit2.Text := ''; // ヌルをセット
      key:=#0;	// うるさいので Beep 音を止めました
>   end;
> end;

上の３行追加してみました。うまく動きました。
お願いがあります。

1.Edit1 と Edit2 の Width を TAN_CD と TAN_NAME の Size を
  元に逆算して設定することはできないでしょうか。
2.Edit1 と Edit2 を入力する際にキーボードを上書きモードに
  できないでしょうか。
  デフォルトで全部上書きモードになるともっと嬉しい。
3.文字幅一杯に入力したらエンターキーやタブキーを押さなくても
  入力の終了とみなして次のイベントにいくことはできないでしょ
  うか。
4.TAN_CD を入力する時に F1 キーを押したら、現在登録してある
  レコードをリストボックスに表示してその中から選択して入力
  するようなことはできないでしょうか。
  できれば DBLookUpCombBox みたいに Edit1 でキー入力をしたら
  頭出し検索をするようになるともっと嬉しい。

いろいろとお願いをして申し訳ないのですが、マウスではなくキー
ボードからデータを入力する際にキー入力を軽減する大事なユーザー
インターフェースの部分なんでよろしくお願いいたします。

GCH04447 よたろう
 


- FDELPHI  MES(16):玉石混淆みんなで作るSample蔵【見本蓄積】 01/01/29 -

Original document by よたろう        氏 ID:(GCH04447)

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。