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

解決

ニトロ 2008-03-07 05:54:37 No: 30095

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

KHE00221 2008-03-07 06:12:41 No: 30096

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

でできるけど

数値専用にしたいなら

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

ニトロ 2008-03-07 07:27:08 No: 30097

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

KHE00221 2008-03-08 03:55:54 No: 30098

リンクおかしいので修正