Вопрос про Edit

[KORN]

используй spinedit в нем можно указать минимальное и максимально значение + туда нельзя вводить буквы

[Bl@ck_A_n_G_e_L]

Кyда прописовать spinedit

[BOBAH13]

Это вроде компонент, а не свой-во

[KORN]

у меня spinedit находится на вкладке samples (юзаю delphi 6)

[mihali4]

Вот, разложил по полочкам:

procedure TForm1.Edit1Change(Sender: TObject);
var tmp: string;
begin
tmp:=Edit1.Text;
if ((tmp>'') and (tmp<>'-')) then
if not (Edit1.Text[Length(tmp)] in ['0'..'9','-']) then
begin
Delete(tmp,Length(tmp),1);
Edit1.Text:=tmp;
Edit1.SelStart:=Length(Edit1.Text);
end;
if ((Edit1.Text>'') and (Edit1.Text<>'-')) then
try
if Abs(StrToInt(Edit1.Text))>177 then
Edit1.Text:='';
except
Edit1.Text:='';
end;
end;