Цифры и минус...

[lypyotr]

Здравствуйте. Нужно сделать так, чтобы в Edit'е можно было вводить только цифры и минус.

[Valio]

Создай множество допустимых символов и проверяй, входит ли, символ в это множество.

Проверять можно в событиях онКейПресс и пр. Или же при потере фокуса.

На форуме уже было, в поиске посиди.

[Shouldercannon]

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not (Key in ['0'..'9']) and (Key <> #189{Минус}) and (Key <> #8{Backspace}) then Key := #0;
end;