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

Вниз

Ввод только цифр в TEdit   Найти похожие ветки 

 
^^^Dragon^^^ ©   (2003-07-24 21:37) [0]

Здравствуйте, уважаемые Мастера!
Я смог блокировать ввод букв в поле TEdit:
procedure TMain.sumKeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in ["0".."9", ","]) then key := #0;
end;

Но возникла такая проблема: блокировался BackSpace. Как вернуть его на место? Помогите пожалуста решить эту проблему. Заранее спасибо.


 
Suntechnic ©   (2003-07-24 21:40) [1]

Да поставь окошку стиль ES_NUMBER и не мучайся.


 
^^^Dragon^^^ ©   (2003-07-24 21:51) [2]

Это где? Стиль чего? Просто стиля там нет...


 
Song ©   (2003-07-24 21:54) [3]

Добавь в квадртные скобки Chr(VK_BACK)


 
Suntechnic ©   (2003-07-24 21:59) [4]

>^^^Dragon^^^ ©
Где-нибудь на OnCreate формы напиши:

SetWindowLong(edit1.handle, GWL_STYLE, GetWindowLong(edit1.handle, GWL_STYLE) or ES_NUMBER);


 
^^^Dragon^^^ ©   (2003-07-24 21:59) [5]

ОГРОМНОЕ СПАСИБО!!!! ВСЕ ЗАРАБОТАЛО!!!


 
Immortal_Death ©   (2003-07-24 23:02) [6]

а чем тебя SpinEdit не устраивает?



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

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

Наверх




Память: 0.47 MB
Время: 0.016 c
6-20659
Hender
2003-06-01 02:22
2003.08.07
TcpSocket


1-20516
j10
2003-07-25 15:26
2003.08.07
как получить путь и имя COM сервера? например Word.Application


1-20597
Opera
2003-07-24 14:41
2003.08.07
Минус


14-20796
мак
2003-07-22 13:44
2003.08.07
Cnhjrf


3-20396
Sicilla
2003-07-15 13:23
2003.08.07
Translate error