Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.11.20;
Скачать: CL | DM;

Вниз

TEdit   Найти похожие ветки 

 
ag0_   (2005-10-26 19:09) [0]

Добрый вечер!! Подскажите как сделать так чтобы в TEdit вводился только текс и наооборот - только цифры


 
Джо ©   (2005-10-26 19:13) [1]

Анализировать нажимаемые клавиши в 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;


 
ag0_   (2005-10-26 19:38) [2]

А как чтобы только можно было вводить только 1 до 20 и все больше ничего


 
ag0_   (2005-10-26 20:08) [3]

Иеще чтобы в Edit-е можно было вводить только 2-а символа


 
Джо ©   (2005-10-26 20:44) [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-27 19:01) [5]

А может кто подскажет как проверить чтобы в поле было число не более 20, желательно во время заполнения поля, а не If Edit1.Text > 20 Then...


 
Leonid Troyanovsky ©   (2005-10-27 19:04) [6]


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


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

--
Regards, LVT.


 
Leonid Troyanovsky ©   (2005-10-27 19:05) [7]


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

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


т.е. StrToInt,
sorry.

--
Regards, LVT.



Страницы: 1 вся ветка

Текущий архив: 2005.11.20;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.031 c
6-1123226386
stepan_mk
2005-08-05 11:19
2005.11.20
FTP & INDY


2-1130757736
syte_ser78
2005-10-31 14:22
2005.11.20
ошибка при вызове функции из dll


3-1128921953
Layner
2005-10-10 09:25
2005.11.20
Через ADO не работает SQL запрос в Access, из Access нормально..


5-1110291542
Sphinx
2005-03-08 17:19
2005.11.20
Можно ли опубликовать в наследнике функцию ?


4-1127119948
Ландграф Павел
2005-09-19 12:52
2005.11.20
узнать с какими правами запустили программу