Имеем:
Код основной прораммы.


Код дополнителного Unit.


Вопрос: можно пропустить обращение к процедуре TForm1.EditKeyPress(Sender: TObject; var Key: Char); и напремую из Edit1->Событие-> EditKey(Text: String; var Key: Char); собственно минуя вот это путь.


И как это организовать

А чем тебя так не устраивает?

Ну хоца знать, дальше продвигатся ведь это я сам дошол, теперь проще так как этих Edit у меня в проге целая куча и не надо писать лишнего кода.

Ну так как можно это реализовать

Нет! Для того, что бы запретить ввод некоторых символов (выполнить EditKey) в TEdit, нужно обработать событие OnKeyPress у него (можно конечно еще OnKeyDown, но это уже как вариант). Поэтому обрабатывать придется у каждого едита, если хочешь что бы у них всех был запрещен ввод.

Еще возможен вариант присваивания события EditKeyPress в OnKeyPress каждого едита в цикле при создании программы. Что-то вроде

Зачем тебе лишняя процедура?
Напиши в первом Edite:

А после этого всем Эдитам в свойствах постать OnKeyPress = Edit1KeyPress. Если ты откроешь всплывающее меню у этого свойства, ты там эту процедуру увидишь.

Это сообщение отредактировал(а) Guedda - 19.1.2006, 23:49

А вообще я когда-писал для своих целей компонент на основе TEdit с возможностью запрета ввода букв, второго сепоратора и всякой другой дрибеденью. Могу выложить если нужно

Если есть готовый компонент то выложи [email protected]

А по теме я знаю что может для несколких Edit задать одну процедуру поэтому в моей проге и нет 1,2,3... я так и зделал.

А лишняя процедура в дополнительном Unit нужна для обращения других так как Form уменя 20 штук и вкаждой по 3-8 Edit поэтому я и заварил всю эту кашу чтоб упростить себе работу так как раньше когда я незнал я делал к каждому Edit свою процедуру в итоге лишнии строки кода а теперь легче вот я и решил может можно зделать ещё проще и обращатся на прямую к процедуре в доподнительном Unit но если нельзя то нельзя.

А вобще возможно такое чтоб контролу в разделе события пресвоить процедуру каторая находится в другом Unit

Кто говорил что нелзя?

Можно! Припиши этот юнит в Uses и обращайся

Зачем самому писать компоненты. Я так думаю что в данной ситуации подойдет
компонент TMaskEdit (кажется так называется), входящий в поставку Delphi
В нем можно указать маску ввода и она будет отсеивать запрещенные символы.

А как быть с сепаратором? Один то можно указать. Да еще ограничение, что его первым нельзя указывать. Да много еще чего, что не умеет TMaskEdit

Не что не получается ошибки новерное я ещё не всё знаю но да ладно пока будет и этим результатом ползоватся всётаки результат на лицо то скажем на 4 Edit было поряжка 50 сторок а теперь всего 4 а если вязять общюю суму Edit а их гдето порядка 100 штук выходит 5000 строк было а стало гдето 500 экономия в 10 раз

Ладно всем спасибо

Poseidon жду компонет

Требует NumEdit.dcu, я тебе его отправил. Смотри внимательнее. NumEdit.dcr тоже был отправлен.


PS. Компонент отправлял в личку, так давай и вопросы задавай в личку. Поверь, остальным не интересно Можешь в РМ, можешь в асю.

Это сообщение отредактировал(а) Poseidon - 20.1.2006, 01:25

Poseidon, Вы это лично проверяли? просто я когда-то тоже пытался сделать что-то подобное и у меня не получилось(подробностей уже не помню). но в общем. я делал так же как и ivan219, - писал один обработчик дял формы и присваивал его всем контролам.

>Bose

Надо не только модулю в список Uses добавить, но и в том модуле, где реализована процедура/функция добавить ее описание в модуль интерфеса:



Это сообщение отредактировал(а) Демо - 20.1.2006, 12:25

Нельзя забывать обработчиком события может быть только метод какого- либо объекта, а не процедура вообще. Более того не любой
метод а только метод с правельным набором парамтров