![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Текстовые поля
Серый © (2006-09-24 17:14:00)Имеются три текстовых поля(Edit).Необходимо сделать так,чтобы в эти поля могли вводиться только цифры от 1 до 9,точка(только в одном месте) и знак минус только перед скобкой.Остальные символы игнорируются.Все это написать в одной процедуре при помощи OnKeyPressed.
Джо (2006-09-24 23:51:00) [1]> [8] SergP © (24.09.06 23:46)
> Переопределить CreateParams
"Все это написать в одной процедуре при помощи OnKeyPressed".
© Серый
SergP (2006-09-24 23:46:00) [2]Переопределить CreateParams
ProgRAMmer Dimonych (2006-09-24 23:45:00) [3]> [6]
ОК, не вопрос, а проблему...
Ketmar (2006-09-24 23:42:00) [4]>[5] ProgRAMmer Dimonych 24-Sep-2006, 23:31
>Надеюсь, понял вопрос правильно...
неправильно. тут вообще никакого вопроса не было.
ProgRAMmer Dimonych (2006-09-24 23:31:00) [5]Как уже неоднократно упоминалось, все ненужные символы в обработчике события OnKeyPressed заменяем на #0. Для точки и минуса - только в том случае, если выполняется определённое условие. Если проблема возникает в том, как обработать три TEdit в одной процедуре, то:
В процедуру-обработчик OnKeyPressed передаётся параметр Sender:TObject. Берём его и используем так:
(Sender as TEdit).Text
Всё текст нужного контрола можно получить. И т.д.
Надеюсь, понял вопрос правильно...
Джо (2006-09-24 21:37:00) [6]А мне вообще идея не нравится.
default (2006-09-24 19:09:00) [7]и я, даже мысленное хлопаю по плечу для подбодрения
SergP (2006-09-24 17:28:00) [8]я тоже не против...
Ketmar (2006-09-24 17:16:00) [9]пиши. разрешаю.