| kukuasir
2651
|
2004/2/29 2:47:13 |
2行就行了
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in ['0'..'9', #8]) then
key := #0;
end; |
| iamdream
2585
|
2004/2/26 12:53:34 |
加上:
以下方法与“使 Edit 只能输入数字”结合使用，可使 Edit 只接受数字.
Delphi实现:
2003.12.13
procedure TForm1.Edit1Change(Sender: TObject);
begin //使 Edit 在变化时滤掉不合法的值(主要处理粘贴)
if (Sender as TEdit).Text <> ' then
try
StrToInt((Sender as TEdit).Text);
except
on E: EConvertError do
begin
(Sender as TEdit).Undo();
(Sender as TEdit).ClearUndo();
end;
end;
end;
|
| vagrant
2572
|
2004/2/26 9:19:52 |
| 考慮不周，用Copy,Paste仍然可以粘貼非數字的......... |
| flyzerg
2570
|
2004/2/26 8:47:37 |
| 不错呀！是个好东西哟！ |
| lulugo
2569
|
2004/2/26 7:40:38 |
| 谢谢了oiwin .....xvjie2002你不能排除有不知道的人呀.. |
| xvjie2002
2557
|
2004/2/25 21:37:19 |
| 早就知道了 |
