お知らせ

電子会議

ライブラリ

パレット

Delphi FAQ検索

Delphi FAQ一覧

サンプル蔵





FDelphi FAQ
16番会議室「玉石混淆みんなで作るSample蔵」に寄せられたサンプル

"TEditの数値入力専用化 整数/浮動小数"

この発言に対し以下のコメントが寄せられています
#00525 牧原 博司   さん RE:TEditの数値入力専用化 整数/浮動小数

TEditに整数 もしくは 正しい浮動小数 のみしか 入力できなくします。 //整数のみ入力可能 procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin If Not (Key In ['0'..'9', #8,#45]) Then//#8はBS #45はマイナス符号 Key := #0; if key=#45 then begin with sender as TEdit do begin if selStart<>0 then key:=#0; if Pos(#45,text)<>0 then Key:=#0; end end; end; //浮動小数点のみ入力可能 procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin If Not (Key In ['0'..'9', #8,#45,#46]) Then Key := #0; if key=#46 then begin if pos('.',(sender as TEdit).text)<>0 then key:=#0; end; if key=#45 then begin with sender as TEdit do begin if selStart<>0 then key:=#0; if Pos(#45,text)<>0 then Key:=#0; end end; end; nifty:FDELPHI/MES/6/02253の謎の全知師さんのコードを参考にさせて頂きまし た。 ☆☆☆ サンプル蔵ブラウザUp!see nifty:FDELPHI/LIB/5/116 ☆☆☆ 98/05/02(土) 03:08 凛(MXB01744) Original document by 凛 氏 ID:(MXB01744)



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

Copyright 1996-2002 Delphi Users' Forum