Текстовые поля

← →
Серый © (2006-09-24 17:14) [0]

Имеются три текстовых поля(Edit).Необходимо сделать так,чтобы в эти поля могли вводиться только цифры от 1 до 9,точка(только в одном месте) и знак минус только перед скобкой.Остальные символы игнорируются.Все это написать в одной процедуре при помощи OnKeyPressed.

← →
Ketmar © (2006-09-24 17:16) [1]

пиши. разрешаю.

← →
SergP © (2006-09-24 17:28) [2]

я тоже не против...

← →
default © (2006-09-24 19:09) [3]

и я, даже мысленное хлопаю по плечу для подбодрения

← →
Джо © (2006-09-24 21:37) [4]

А мне вообще идея не нравится.

← →
ProgRAMmer Dimonych (2006-09-24 23:31) [5]

Как уже неоднократно упоминалось, все ненужные символы в обработчике события OnKeyPressed заменяем на #0. Для точки и минуса - только в том случае, если выполняется определённое условие. Если проблема возникает в том, как обработать три TEdit в одной процедуре, то:

В процедуру-обработчик OnKeyPressed передаётся параметр Sender:TObject. Берём его и используем так:

(Sender as TEdit).Text

Всё текст нужного контрола можно получить. И т.д.

Надеюсь, понял вопрос правильно...

← →
Ketmar © (2006-09-24 23:42) [6]

>[5] ProgRAMmer Dimonych 24-Sep-2006, 23:31
>Надеюсь, понял вопрос правильно...
неправильно. тут вообще никакого вопроса не было.

← →
ProgRAMmer Dimonych (2006-09-24 23:45) [7]

> [6]
ОК, не вопрос, а проблему...

Переопределить CreateParams

> [8] SergP © (24.09.06 23:46)
> Переопределить CreateParams

"Все это написать в одной процедуре при помощи OnKeyPressed".

© Серый

Текстовые поля Найти похожие ветки