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

Nurdaulet

14 мар 2012 г., 16: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;