[malltaf]

Необходимо ограничение одного из Edit'ов, только цифры и запятая.
Есть несколько форм.
Проблема заключается в том, что в TForm2 всё работает.

Код:

procedure TForm2.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in ['0'..'9',#8,',']) then key:=#0;
end;

А вот в TForm1 - нет. Разница только в том, что в TForm2 Edit непосредственно на TForm2, а в TForm1 наличествует Panel, которая появляется по нажатию на кнопку, и уже на ней находится Edit.
Программа запускается, при попытке ввести буквы (и т.п.) в поле Edit отсутствует ограничение, однако по нажатию на кнопку применения/сохранения введенных данных программа выдает ошибку, мол, не получается сконвертировать тип стринг в тип дабл.
Неужели в Panel'и нельзя поставить ограничений в Edit? о_О
Заранее спасибо.

[M.A.D.M.A.N.]

Может там не запятую надо а точку.

[Black Raider]

а обработчик у Едита который на первой форме такой же?

[malltaf]

Да, обработчик тот же.
Запятая наврятли играет решающую роль.

[malltaf]

В событиях Edit'а OnKeyPress поставил необходимый, все заработало)