OnKeyPress ...

[Vova777]

Как в компоненте TEdit в событии OnKeyPress отловить нажатие клавиши Enter?

код:

if Key = #13 then
begin
...
end;

почему-то не работает.

[mss]

Что, вот прямо так и говорит "почему-то не работаю" ?)

[Vova777]

Сообщение от mss

Что, вот прямо так и говорит "почему-то не работаю" ?)

нет, просто на нажатие клавиши Enter никак не реагирует

[mss]

значит Edit в момент нажатия Enter не имеет фокуса ввода

[Vova777]

Сообщение от mss

значит Edit в момент нажатия Enter не имеет фокуса ввода

нет, я же число ввожу, потом жму Enter. Как раз таки только он фокус и имеет.

[mss]

у формы поди keyPreview=True ?

[Vova777]

Сообщение от mss

у формы поди keyPreview=True ?

нет же, Form1.KeyPrewiev:= False стоит.

[Vova777]

Вот код:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
case Key of
#8,'0'..'9': ; // цифры и <Backspace>
#13: ;// клавиша <Enter>
'.': // разделитель целой и дробной частей числа
begin
DecimalSeparator:= '.';
if Pos(DecimalSeparator, Edit1.Text) <> 0 then Key:= Chr(0); // запрет ввода второго разделителя

if Key = #13 then
begin
if (Label37.Caption = 'Введите новое значение (диаметр):') and ((Edit1.Text <> '') or (Edit1.Text <> '0')) then
begin
if Edit1.Text[1] <> '.' then
Label24.Caption:= 'Диаметр: ' + Edit1.Text + ' мм'
else
Label24.Caption:= 'Диаметр: 0' + Edit1.Text + ' мм';
end
else
Label24.Caption:= 'Диаметр: н/а';
end;

end;
else // остальные символы запрещены
Key := Chr(0);
end;
end;

[mss]

на нажатие клавиши Enter никак не реагирует

А как должен реагировать ?)

[Vova777]

Сообщение от mss

А как должен реагировать ?)

см пост выше