Здравствуйте. Я делаю проверку длинны строки. Конечно можнобы было писать на каждый компанент проверку длинны.
Например TEdit, TDBEdit, TMaskEdit и т.д, но надо для всех наследников TEdit.

Вот мой код



Тут будет работать только для TEdit, а для TDBEdit, TMaskEdit придется писать другой код. 

Скажите пожалуста как написать код который будет охватывать все дочерние компаненты?

Это сообщение отредактировал(а) Alexeis - 25.10.2007, 09:49

  Мож просто назначить им один общий обработчик OnChange ?

Alexeis  я вот как выпоняю процедуру 



Это сообщение отредактировал(а) RinOSpro - 25.10.2007, 10:24

  А кажись понял суть вопроса. Приводи их всех к общему предку TCustomEdit и у него проверяй свойство Text. Тогда не нужно будет дублировать код.

Спасибо!!! Значит TCustomEdit является родителем. А я думал TEdit    А как привести их к общему предку?

Мне кажется свойство Text проверять не надо. Оно есть в TCustomEdit значит по идее дожно наследоваться и дочерними компанентами. Или надо как думаешь?

  Как обычно (Sender as TCustomEdit).Text 


  Так ты ж сам не хотел писать разный код для 3х классов, чтобы этого не делать, применяй действия к наследнику приводя его к предку, т.е. как я показал.

Млин... Свойство техт у них есть а вот свойства фонт нету. Что делать?

Помогите!!!!!!

Добавлено через 2 минуты и 13 секунд
Может как нибудь можно так 



Хотя именно так не работает.

RinOSpro, 
В начале модуля пропиши:

Лан, тады пойдем небезопасным путем   
Короч. тут дело такое. Font есть у всех контролов, он появляется у TControl, но в разделе protected. Объекты так устроены, что у всех наследников поля идут в том же порядке. Это позволит правильно обратиться к нужному полю, даже если объект приведен не к своему классу, главное чтобы уних был общий предок, protected свойство которого нужно достать. Например, даже такое будет отлично работать


Хотя (Edit1 as TButton) даже компилятор не пропустит. Тут главное трогать только поля их общего предка, в данном случае это TControl, потому если нужно у них установить только фонт и текст, то не заморачивайся и приводи Сендера к TEdit. 

Только не забудь, что нельзя обращаться к специфическим полям TEdit, только к тем что есть у TCustomEdit или предков TCustomEdit.

Добавлено через 3 минуты и 15 секунд
  Упс. Rennigth, нашел более грамотное решение. 

Rennigth а это правильно что мы немного подправили класс?

RinOSpro, это не правка старого, а фактически создание нового с таким же именем (не ясно зачем было сохранять имя). Его можно было назвать хоть TDeadeaVasea. Исходные модули как использовали родной класс, так и будут использовать.

Что то это не работает.

Отчего же? Я сам проверял. Все ОК.

Твоя первоначальная процедура будет выглядеть примерно так:



Это сообщение отредактировал(а) Rennigth - 25.10.2007, 15:51