Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 24.03.2007, 13:15   #1
alsq
Пользователь
 
Регистрация: 09.03.2007
Сообщений: 21
По умолчанию Как ограничить ввод?

Мне нужно ограничить вводимый текст в Edit и при нажатие Enter перевод на кнопку.Пытался типа


procedure tform1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13
then form1.Button1.SetFocus;
if not ((Key >= '0') and (Key <='9') )
then Key := Chr(0);
end;

и

case key of '0'..'9':
key:=chr(0);
end;
Чето не получатся
alsq вне форума Ответить с цитированием
Старый 24.03.2007, 13:38   #2
Romanus
Кодер
Форумчанин
 
Регистрация: 27.01.2007
Сообщений: 271
По умолчанию

Используй компонент TUpDown для чисел там поставть Min и Max минимальное и максильное значение.
Romanus вне форума Ответить с цитированием
Старый 24.03.2007, 13:42   #3
alsq
Пользователь
 
Регистрация: 09.03.2007
Сообщений: 21
По умолчанию

Не мне нужно чтобы вводились только цифры и при нажатие на ENTER фокус перескакивал на Button.
alsq вне форума Ответить с цитированием
Старый 24.03.2007, 13:47   #4
mihali4
*
Старожил
 
Регистрация: 22.11.2006
Сообщений: 9,201
По умолчанию

procedure tform1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
Button1.SetFocus else
if not ((Key >= '0') and (Key <='9') ) then
//или if not (key in ['0'..'9']) then
Key := Chr(0);
end;

Или без else:

procedure tform1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not ((Key >= '0') and (Key <='9') ) then
//или if not (key in ['0'..'9']) then
Key := Chr(0);
if key=#13 then
Button1.SetFocus;
end;
mihali4 вне форума Ответить с цитированием
Старый 24.03.2007, 13:53   #5
alsq
Пользователь
 
Регистрация: 09.03.2007
Сообщений: 21
По умолчанию

К сожалению в этом вся и проблема, что так не выходит , вводятся как буквы, так ицифры и фокус не переходит, будто игнорируется эта прцедура.Не пойму в чем ошибка.
alsq вне форума Ответить с цитированием
Старый 24.03.2007, 14:01   #6
mihali4
*
Старожил
 
Регистрация: 22.11.2006
Сообщений: 9,201
По умолчанию

Фу ты, ну ты... Просмотрел...
Вот:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if ((Key >= '0') and (Key <='9')) then
//или if (key in ['0'..'9']) then
Key := Chr(0);
if key=#13 then
Button1.SetFocus;
end;

!!!
Перед тем, как отправить, на всякий случай опробовал у себя, чтобы не допустить смешных ошибок. Все чудесно работает.

Последний раз редактировалось mihali4; 24.03.2007 в 14:45.
mihali4 вне форума Ответить с цитированием
Старый 24.03.2007, 14:08   #7
alsq
Пользователь
 
Регистрация: 09.03.2007
Сообщений: 21
По умолчанию

Аналогично.Ноль эмоций.Пробовал даже просто

if key=#13
then
button1.setfocus;
Все равно не получатся.Байда какаято.
alsq вне форума Ответить с цитированием
Старый 24.03.2007, 14:13   #8
mihali4
*
Старожил
 
Регистрация: 22.11.2006
Сообщений: 9,201
По умолчанию

Цитата:
Аналогично.Ноль эмоций
А у вас нет другого обработчика? Например, по OnKeyDown...
Перечитайте мой предыдущий.
mihali4 вне форума Ответить с цитированием
Старый 24.03.2007, 14:30   #9
alsq
Пользователь
 
Регистрация: 09.03.2007
Сообщений: 21
По умолчанию

Уважаемый mihail4 Глубочайшие извенения за мою не внимательность, я виноват.По своей глупости вообще не указал обработчик.
Еще раз искренние извенения и благодарности.
alsq вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
ограничить одновременное скачивание ILoveKS PHP 3 14.05.2008 20:59
Как ограничить ось у в TChart SeЯgey Помощь студентам 2 15.04.2008 17:16
Как ограничить размер файла geronime PHP 8 20.02.2008 14:26
как ограничить возможность ввода формата в ячейках? Ivo4ka Microsoft Office Excel 23 14.02.2008 09:02
Как ограничить срок работы программы Allegro87 Microsoft Office Access 7 26.11.2007 12:15