Просмотр поста

nan4ik

14 мар 2012 г., 18:14

Nurdaulet (14.03.2012/13:26)

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not ((Key >= '0') and (Key <='9') or (Key = #8))
then Key := Chr(0);
end;

Гдето чтото не правильно