Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.10.24;
Скачать: [xml.tar.bz2];

Вниз

создание цифрового TEdit   Найти похожие ветки 

 
pirat   (2002-10-14 21:43) [0]

Всем привет!
Понадобилось мне, чтоб в TEdit можно было вводить только цифры. Решил перехватить WM_CHAR и отфильтровать только нужные мне символы. Попробовал подменить WndProc - ноль результатов.
Как же все таки это сделать???


 
VID   (2002-10-14 21:49) [1]

Вообще-то не грех и TSpinEdit использовать, который лежит на странице Samples :)


 
down   (2002-10-14 21:53) [2]

Подменить KeyDown: если Key <> цифре, то Key := 0


 
TTCustomDelphiMaster   (2002-10-14 22:06) [3]

SetWindowLong(Edit1.Handle, GWL_STYLE, GetWindowLong(Edit1.Handle, GWL_STYLE) or ES_NUMBER);


 
Юрий Зотов   (2002-10-14 22:08) [4]

SetWindowLong(Edit1.Handle, GWL_STYLE,
GetWindowLong(Edit1.Handle, GWL_STYLE) or ES_NUMBER);

И все.


 
Юрий Зотов   (2002-10-14 22:10) [5]

Мы не сговаривались, честное слово!
:о)


 
pirat   (2002-10-14 23:01) [6]

Сорри, забыл ведь главное сказать :((
Я в нее хотел вводить числа в формате double/real/float

Так что TSpinEdit не подходит
ES_NUMBER счас проверю
KeyDown вызывается после, а не перед (разве не так?)


 
Dr_Mike   (2002-10-15 02:13) [7]

Сомнения меня одолевают по поводу вышесказанного - если например, я буду вводить 1234.1234.2.4 - это что, тоже число будет ?

Не проще ли анализировать уже готовое число после ввода, и при неудачной проверке опять возвращаться к вводу ?


 
PKT   (2002-10-15 03:45) [8]

А может быть в лоб проблемку решить ?
Если числа еще и в форме 1Е-10 вводятся, то надо
еще код раздувать

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in [#8, DecimalSeparator, "0".."9"]) or
((Key = DecimalSeparator) and
(Pos(DecimalSeparator, TEdit(Sender).Text) <> 0))
then Key := #0;
end;




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

Форум: "Основная";
Текущий архив: 2002.10.24;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.56 MB
Время: 0.042 c
6-78560
Andre V.
2002-08-15 09:57
2002.10.24
Wake-On-LAN?


4-78725
Z0id
2002-09-12 11:04
2002.10.24
Тюнинг стандартных диалогов


1-78442
Palmir
2002-10-15 04:30
2002.10.24
Нереалбный глюк ...


14-78632
Пингвинятко
2002-10-03 08:54
2002.10.24
Formula One ActiveX


7-78690
Геннадий
2002-08-17 22:29
2002.10.24
Работа с модемом...





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский