|
Вопрос # 3 677/ вопрос открыт / |
|
Здравствуйте, уважаемые эксперты!
У меня есть код числовой маски компонента ТEdit по событию OnKeyPress . Смотри приложение. Есть многомодульное приложение у которого во многих модулях присутствуют компоненты ТEdit на которые мне бы и хотелось накладывать эту маску. Как мне переделать этот код, что бы каждый раз не писать его для конкретного компонента,а подключать уже готовую процедуру.
Приложение: Переключить в обычный режим- procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
- begin
- if Key = ',' then
-
-
- if Key = '.' then
-
-
-
-
-
-
-
-
- begin
-
-
- end;
- end;
-
-
 |
Вопрос задал: GAZ (статус: Посетитель)
Вопрос отправлен: 23 января 2010, 11:02
Состояние вопроса: открыт, ответов: 1.
|
Ответ #1. Отвечает эксперт: min@y™
Сделай модуль с формой Form1 видимым для всех нужных модулей (в разделе implementation напиши uses Unit1). Затем присвой в диспетчере объектов всем нужным эдитам обработчик Form1.Edit1KeyPress.
 |
Ответ отправил: min@y™ (статус: Доктор наук)
Время отправки: 23 января 2010, 12:18
|
Мини-форум вопроса
Всего сообщений: 4; последнее сообщение — 23 января 2010, 20:44; участников в обсуждении: 4.
|
Мережников Андрей (статус: Абитуриент), 23 января 2010, 11:36 [#1]:
а не проще использовать TMaskEdit вместо TEdit?
|
|
|
GAZ (статус: Посетитель), 23 января 2010, 14:30 [#2]:
min@y™
Ты посмотри внимательно код,что с Edit1.Text делать.
Присваивать обработчик я умею.
|
|
|
min@y™ (статус: Доктор наук), 23 января 2010, 19:24 [#3]:
Цитата (GAZ):
Ты посмотри внимательно код,что с Edit1.Text делать. Присваивать обработчик я умею.
А, ты про это!..
Везде в обработчике пиши вместо Edit1 вот такую весчь: TEdit(Sender).
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key = ',' then
Key := DecimalSeparator; // запятую заменяем на разделитель для числа
if Key = '.' then
Key := DecimalSeparator; // точку заменяем на сепаратор (на всякий случай)
if not (Key in ['0'..'9','-',DecimalSeparator,#8,#13]) // символы которые пропускаются
or ((Key = DecimalSeparator) // все цифры знак минус разделитель
and (POS (DecimalSeparator, TEdit(Sender).Text) > 0)) // запрет на второй сепаратор
or ((Key = '-') and (POS ('-', TEdit(Sender).Text) > 0)) // запрет на второй минус
or ((Key = '-') and (TEdit(Sender).SelStart <> 0)) // запрет на минус не вначале цифры
then // (можно и предыдущей строчки но так лучше для понимания)
begin
Key := #0; // запрещенный символ заменяем нулем
MessageBeep (MB_OK); // звуковой сигнал
end;
end;
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
Егор (статус: 10-ый класс), 23 января 2010, 20:44 [#4]:
а можно ещё свой компонент написать на основе Edit-а, и уже его использовать. обозвать как-нибудь типа TNumberEdit.
кстати, по идее, это будет "повторное использование кода", что есть гуд
Опасайтесь багов в приведенном выше коде; я только доказал корректность, но не запускал его.
— Donald E. Knuth.
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
