マイナス入力を不可にする

解決

ニトロ  2008-03-06 20:54:37  No: 30095  IP: 192.*.*.*

Editにマイナス（−）が入力出来ないようにするにはどうすればいいでしょうか？
エラー等もいりません。

編集 削除
KHE00221  2008-03-06 21:12:41  No: 30096  IP: 192.*.*.*

procedure TForm5.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
    if Key= Char('-') then Key := Char(0);
end;

でできるけど

数値専用にしたいなら

http://www2.big.or.jp/~osamu/Delphi/Tips/search.cgi

こんなやりかたもあるよ？

編集 削除
ニトロ  2008-03-06 22:27:08  No: 30097  IP: 192.*.*.*

なるほど勉強になります。

編集 削除
KHE00221  2008-03-07 18:55:54  No: 30098  IP: 192.*.*.*

リンクおかしいので修正

http://www2.big.or.jp/~osamu/Delphi/Tips/search.cgi#0223.txt

編集 削除