VPF::OnKeyPress - Форум программистов

Ahmad

Дата 14.8.2007, 03:04 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 11
Регистрация: 12.8.2007

Репутация: нет
Всего: нет

Доброй ночи!
Я пишу компонент на базе TEdit и я хочу чтоби в нем отображались только цифри, знак "-" и "," но в процедуре OnKeyPress я не могу понять как сделать так чтоб знак '-' можно било набрать в моем компоненте только 1 раз и он должен стоять на 1 месте. Ввода символа "-" только 1 раз я добился, а вот как сделать чтоби его можно било ввести только 1-им знаком.

Вот что у меня есть:

Код


...
if Key = '-' then
 if pos('-',text) > 0 then
  Key := #0
...

Если не правильно то исправте пожалуйста, очень нуждаюсь в Вашей помощи

Coder

Дата 14.8.2007, 04:18 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 733
Регистрация: 13.12.2004

Репутация: 2
Всего: 11

if Key = '-' then
if pos('-',text) <> 1 then
Key := #0

Felan

Дата 14.8.2007, 07:53 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 284
Регистрация: 2.8.2007
Где: Самара

Репутация: 2
Всего: 7

Нужно в ручную позиции считать... Больше никак.

Вот, давненько компонентик себе делал для этого, посмотри, может подойдет.
TEdit с вводом только чисел

--------------------

// Любая сложная система - это темный лес. Каждый в этом лесу протаптывает свои тропинки, по ним и бегает. Лишь изредка, сходя с них, мы находим много интересного, а порою и страшного.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »