VPF::ВВод в TEdit определённых символов

pankerstein

Дата 7.1.2007, 11:46 (ссылка)

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

Загрузка ...

Новичок

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

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

Всем привет!

Мне нужно чтобы в Edit можно было вводить только определённые символы...например, только цифры или или().
Как такое сделать подскажите.

nv_xor

Дата 7.1.2007, 11:56 (ссылка)

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

Загрузка ...

Новичок

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

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

юзай TMaskEdit.

MetalFan

Дата 7.1.2007, 12:15 (ссылка)

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

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

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

в OnKeyPress проверяй Key

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

There are always someone smarter than you...

VICTAR

Дата 7.1.2007, 12:28 (ссылка)

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

Загрузка ...

Эксперт

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

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

Код


procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in ['0'..'9',#8]) then key:=#0;
end;

former

Дата 7.1.2007, 14:05 (ссылка)

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

Загрузка ...

MEMS Expert

Профиль
Группа: Завсегдатай
Сообщений: 1166
Регистрация: 1.3.2006
Где: Россия

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

Можно вот так (обеспечивает ввод только чисел с разделителем):

Код


procedure TMainForm.InputControl(var Key:Char);
begin
if (Key in ['A'..'Z', 'a'..'z', 'А'..'Я', 'а'..'я', 'ё',
            '/','|', '\', '>', '<', '!', '@', '#', '$', '%',
            '^', '&', '*', '(', ')', '-', '+', '=', '_',
            '?', '"', '№', ';', ':', '{', '}', '[', ']',
            '`', '~', ' ']) then
begin
  Key:=#0;
end
else if (Key='.') then
begin
  Key:=#0;
  MessageBeep(MB_ICONHAND);
  MessageDlg('Для разделения целой и дробной частей используйте " , ".', mtError, [mbOk],0);
end;
end;

procedure TMainForm.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  InputControl(Key);
end;

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

Достаточно снизить уровень мышления, чтобы иные почувствовали почву под ногами.

pankerstein

Дата 7.1.2007, 16:00 (ссылка)

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

Загрузка ...

Новичок

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

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

Цитата(VICTAR @ 7.1.2007, 12:28)

Код


procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in ['0'..'9',#8]) then key:=#0;
end;

Так на мой взгляд проще всего, огромное спасибо to victar!
И спасибо всем за то, что просветили, и так подняли тему smile

(Этот форум наверное самый живой в рунете smile

)

С удовольствием полистаю темку TEdit vs TMaskEdit smile

, а этот вопрос закрываю.

Это сообщение отредактировал(а) pankerstein - 7.1.2007, 16:02

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