|
Вопрос # 3 834/ вопрос открыт / |
|
Здравствуйте, уважаемые эксперты!
У меня такой два вопроса:
1. Во время работы с компонентом Edit по нажатии клавиши Enter издается звуковой сигнал, как его убрать?
2.В поле Edit по заданию можно вводить только цифры и латинские буквы на данном этапе я решаю вопрос так как показано в приложении. Как мне не очищать поле, а убрать "неправильные" символы? И если текст вводить с клавиатуры то чтобы символ вообще не отображался?
Приложение: Переключить в обычный режим- procedure TMainForm.RemarkEditChange(Sender: TObject);
- type
- CharSet = set of Char;
- const
- EngLetters :CharSet = ['a'..'z','A'..'Z','0'..'9'];
- var
- i:integer;
- NextChar:Char;
- begin
- for i:=1 to Length(RemarkEdit.Text) do
- begin
- NextChar:=RemarkEdit.Text[i];
- if not (NextChar in EngLetters) then
- begin
- beep;
- RemarkEdit.Text:='';
- break;
- end;
- end;
- end;
-
 |
Вопрос задал: Кириченко Сергей (статус: 1-ый класс)
Вопрос отправлен: 2 марта 2010, 11:44
Состояние вопроса: открыт, ответов: 1.
|
Ответ #1. Отвечает эксперт: DNK
Здравствуйте, Кириченко!
Довольно популярный вопрос задаёшь.
Приложение: Переключить в обычный режим- procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
- type
- CharSet = set of Char;
- const
- EngLetters :CharSet = ['a'..'z','A'..'Z','0'..'9'];
- begin
- if not (Key in EngLetters) then
- Key := #0;
- end;
 |
Ответ отправил: DNK (статус: Студент)
Время отправки: 2 марта 2010, 11:55
Оценка за ответ: 5
Комментарий к оценке: Спасибо, а как насчет первого вопроса?
|
Мини-форум вопроса
Всего сообщений: 4; последнее сообщение — 2 марта 2010, 12:55; участников в обсуждении: 2.
|
|
DNK (статус: Студент), 2 марта 2010, 12:07 [#1]:
Это решает обе проблемы.
"Digital Networked Knight"
|
|
|
Кириченко Сергей (статус: 1-ый класс), 2 марта 2010, 12:10 [#2]:
Я тоже думаю, что популярный но я здесь поискал не нашел ответа в задаваемых вопросах, может быть не внимательно искал.
С неправильными символами разберусь сам, меня больше интересует первый вопрос собственно ради него я и заходил. Поискал на Rambler ничего толкового не нашел.
|
|
|
DNK (статус: Студент), 2 марта 2010, 12:21 [#3]:
Повторяюсь. Код в приложении моего ответа отвечает на твой первый вопрос. Настоятельно рекомендую попробовать, прежде чем продолжать полемику.
"Digital Networked Knight"
|
|
|
Кириченко Сергей (статус: 1-ый класс), 2 марта 2010, 12:55 [#4]:
Спасибо. Я сначала ответил а потом проверял.
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
