Необходимо ограничение одного из 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? о_О
Заранее спасибо.