Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

TEdit [D7, WinXP]

ag0_ © (2005-10-26 19:09:00)
Добрый вечер!! Подскажите как сделать так чтобы в TEdit вводился только текс и наооборот - только цифры

Leonid Troyanovsky (2005-10-27 19:05:00) [1]

> Leonid Troyanovsky © (27.10.05 19:04) [6]

> Проверяй в OnChange: if IntToStr(Edit1.Text) > 20 then

т.е. StrToInt,
sorry.

--
Regards, LVT.

Leonid Troyanovsky (2005-10-27 19:04:00) [2]

> ag0_ (27.10.05 19:01) [5]
> А может кто подскажет как проверить чтобы в поле было число
> не более 20, желательно во время заполнения поля, а не If
> Edit1.Text > 20 Then...

Проверяй в OnChange: if IntToStr(Edit1.Text) > 20 then

--
Regards, LVT.

ag0_ (2005-10-27 19:01:00) [3]
А может кто подскажет как проверить чтобы в поле было число не более 20, желательно во время заполнения поля, а не If Edit1.Text > 20 Then...

Джо (2005-10-26 20:44:00) [4]

> [3] ag0_ (26.10.05 20:08)
> Иеще чтобы в Edit-е можно было вводить только 2-а символа

TEdit.MaxLength := 2;

> [2] ag0_ (26.10.05 19:38)
> А как чтобы только можно было вводить только 1 до 20 и все
> больше ничего

В качестве домашнего задания, OK?

ag0_ (2005-10-26 20:08:00) [5]
Иеще чтобы в Edit-е можно было вводить только 2-а символа

ag0_ (2005-10-26 19:38:00) [6]
А как чтобы только можно было вводить только 1 до 20 и все больше ничего

Джо (2005-10-26 19:13:00) [7]
Анализировать нажимаемые клавиши в OnKeyPress, например, так:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); const BACKSPACE_KEY = #8; begin if not (Key in ['0'..'9',BACKSPACE_KEY]) then Key := #0 end;

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »