Как ограничить ввод?

[alsq]

Мне нужно ограничить вводимый текст в 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;
Чето не получатся

[Romanus]

Используй компонент TUpDown для чисел там поставть Min и Max минимальное и максильное значение.

[alsq]

Не мне нужно чтобы вводились только цифры и при нажатие на ENTER фокус перескакивал на Button.

[mihali4]

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;

[alsq]

К сожалению в этом вся и проблема, что так не выходит , вводятся как буквы, так ицифры и фокус не переходит, будто игнорируется эта прцедура.Не пойму в чем ошибка.

[mihali4]

Фу ты, ну ты... Просмотрел...
Вот:
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;

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

[alsq]

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

if key=#13
then
button1.setfocus;
Все равно не получатся.Байда какаято.

[mihali4]

Аналогично.Ноль эмоций

А у вас нет другого обработчика? Например, по OnKeyDown...
Перечитайте мой предыдущий.

[alsq]

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