TEditの数字入力桁数を指定

NOBI 2003-09-18 21:23:10 No: 4909

TEditで整数のみの入力制限をオブジェクトインスペクタの
プロパティーで設定したいのですが可能でしょうか？
また、別で、TEditで整数4桁、小数3桁に指定したいのですが
こちらは、プログラムを組んでやりたいのですが。
詳しい方がいらっしゃいましたらお願いします。

LupinⅢ URL 2003-09-18 21:33:44 No: 4910

オブジェクトインスペクタでの設定は無理です。
TEditのイベントで下記を入力すれば数値のみになります。

procedure TForm1.EditFromKeyPress(Sender: TObject; var Key: Char);
var
   AcceptStr:string;
begin
   AcceptStr := '0123456789';
   if (Pos(Key,AcceptStr)=0) and (Ord(Key) <> VK_BACK) then
      Key := #00
   else
      Key := Key;
end;

後者の質問に関しては算術関数を使用することで可能になると思います。

たかみちえ URL 2003-09-18 21:34:21 No: 4911

なんだかDelphianWorldに、そういうコンポーネントがあったような気がするんですけど…。
見てみてはどうでしょうか？

にしの 2003-09-18 21:42:15 No: 4912

使い勝手は悪いですが、整数のみの入力制限であればTMaskEditのEditMaskプロパティでできます。
小数の入力制限ができるかどうかはわかりません。

さどやま URL 2003-10-04 08:22:20 No: 4913

たかみちえさんが既に発言されていますが、DelphianWorldには多数登録されています。
すべて試して見ましたが、私のお勧めは、佐藤充男さんのTSaNumEdit1.4です。
「プログラムを組んでやりたい」とのことですが、丁寧なコメント付のソースコードもついていますので、大変勉強になります。

http://home1.infonia.ne.jp/~delphian/delphi/