Помогите Новичку

Сейчас на форуме: CDK123, zds, tyns777, tihiy_grom, morgot, rmn (+5 невидимых)

Посл.ответ	Сообщение
-=the man=- Ранг: 3.9 (гость) Активность: 0=0 Статус: Участник	Создано: 02 декабря 2008 00:02 · Поправил: -=the man=- · Личное сообщение · #1 Я в программировании сильно тупой, хочу написать кейген к взломанной проге мне нужно чтобы при вводе символов выдавало сообщение о том что нужно ввести только цифры. Кейген на Делфи.

tihiy_grom Ранг: 441.3 (мудрец), 297thx Активность: 0.41↘0.04 Статус: Участник	Создано: 02 декабря 2008 00:09 · Личное сообщение · #2 -=the man=- Это и будет максимум, на что способен твой кейген Учи языки
-=the man=- Ранг: 3.9 (гость) Активность: 0=0 Статус: Участник	Создано: 02 декабря 2008 00:16 · Личное сообщение · #3
Vovan666 Ранг: 617.3 (!), 677thx Активность: 0.54↘0 Статус: Участник	Создано: 02 декабря 2008 00:52 · Поправил: Vovan666 · Личное сообщение · #4 www.delphiworld.narod.ru/base/edit_input_restrict.html www.kansoftware.ru/?tid=3206
Ara Ранг: 1288.1 (!!!!), 273thx Активность: 1.29↘0 Статус: Участник	Создано: 02 декабря 2008 00:53 · Личное сообщение · #5 Label1.Caption:='Ниже вводить тока цифры, сцуко!!!!!!!!!'; Edit1.Text:='Сюда не вводить аццкие буквы!!!!!!!!!';
coderess Ранг: 355.4 (мудрец), 55thx Активность: 0.32↘0 Статус: Uploader 5KRT	Создано: 02 декабря 2008 01:35 · Личное сообщение · #6 try/except, StrToIntDef() ----- Gutta cavat lapidem. Feci, quod potui. Faciant meliora potentes
MilitaryMan Ранг: 14.4 (новичок) Активность: 0.01↘0 Статус: Участник	Создано: 02 декабря 2008 04:03 · Личное сообщение · #7 А если уж вообще ничё не сможешь - используй HiASM (найдешь в инете)
ClockMan Ранг: 568.2 (!), 465thx Активность: 0.55↗0.57 Статус: Участник оптимист	Создано: 02 декабря 2008 06:10 · Поправил: ClockMan · Личное сообщение · #8 Введите ваше имя В вожу ИВАНОВ И тут выскакивает В води своё имя только цифрами сцуко!!!!!!!!! ---------------------------------------------------------------------- ----------------------------------------- Вообще лучше сделать чтобы можно было в водить только цифры вот пример на основе компонента EDIT Code: procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin Case Key of '0'..'9', #8:;\ Только цифры и кнопка <Backspace> else Key := Char(0); \ Если буквы то непишем их в EDIT end end; end. ----- Чтобы правильно задать вопрос, нужно знать большую часть ответа. Р.Шекли.
Valemox Ранг: 116.5 (ветеран), 3thx Активность: 0.07↘0 Статус: Участник	Создано: 02 декабря 2008 11:38 · Поправил: Valemox · Личное сообщение · #9 Чтоб позволить вводить в контрол только определенные символы можно, при желании, заюзать API-функу SetWindowLong.
tihiy_grom Ранг: 441.3 (мудрец), 297thx Активность: 0.41↘0.04 Статус: Участник	Создано: 02 декабря 2008 11:47 · Личное сообщение · #10 Все молодцы, хвалю Следующая тема будет - "Ребята, всем спасибо, я сделал чтобы в Edit можно было вводить только цифры. Теперь мне надо написать кейген. Есть мысли по этому поводу?"
-=the man=- Ранг: 3.9 (гость) Активность: 0=0 Статус: Участник	Создано: 02 декабря 2008 15:03 · Личное сообщение · #11 Не такой темы уже не будет, я уже написал кейген, так что огромное спасибо ребята... Только не надо так сильно пинать ребята...

Для печати