Свойства

← →
Tonich © (2005-11-23 15:35) [0]

создаю компонент, который явдяется наследником TIdFTPServer. У предка есть свойства
property OnConnect...
property OnDisconnect...
в с воем наследнике я обрабатываею эти 2 события (выдиление/возвращение памяти). Так вот, когда бросаю свой компонент на форму, естественно что в испекторе появляются эти 2 события, ну а если их обрабатывать они перекроют мои обработчики (в наследнике которые установлены мной)...
Собственно вопрос... как сделать что бы мои действия (в наследнике выполняли независимо от того есть ли обработчити или нет)... НУ один из вариантов это просто объявить еще 2 свойства своих.. но это как то....

← →
Tonich © (2005-11-23 16:08) [1]

ну что так никто и не поможет?

← →
wal © (2005-11-23 16:10) [2]

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

С уважением.

← →
Tonich © (2005-11-23 16:16) [3]

> Не устанавливай обработчики событий.

так это уже буду делать не я а те кто будит пользоваться компонентом, а я ж не могу быть уверенным на 100% что их не установят ))

← →
wal © (2005-11-23 16:20) [4]

> так это уже буду делать не я
А это как понимать:

> в с воем наследнике я обрабатываею эти 2 события

← →
umbra © (2005-11-23 16:23) [5]

для этого надо перекрыть protected процедуры предка - DoConnect и DoDisconnect, написать там, что надо и вызвать inherited;

← →
Tonich © (2005-11-23 16:28) [6]

так все по порядку с начала.
когда я объявляю новый класс

> TTerminalServer = class(TIdFTPServer)

в конструкторе делаю следующее
constructor TTerminalServer.Create(AOwner:TComponent); begin inherited Create(AOwner); ...... OnConnect := Connect; OnDisconnect := Disconnect; end;
ну затем понят что-то делаю в процедурах Connect/Disconnect;
все! теперь на этой стадии будим считать что пректироваение компонента завершено, устнавливаем его

после этого кидаем его на форму, все замечально работает
до того момента если не начинать обрабатывать у этого уже компоненты события
OnConnect;
OnDisconnect;
ясно дело что они просто перекрывают мои обработчики, и все ... следовательно мои действия (которые должны выполняться обязательно) уже тю тю..
так вот я и спрашиваю как сделать так что бы мои действия выполнялись в любом случаи ?

см. wal © (23.11.05 16:10) [2]. не надо создавать обработчики, почему - Вы сами объяснили. Обработчики вызываются из protected методов TIdFTPServer - DoConnect и DoDisconnect, или, точнее из перекрытых метов TIdCustomTCPServer. Поэтому Вам надо перекрыть эти методы, написать нужный код и вызвать inherited.

TTerminalserver = class(TIdFTPServer) {........................} protected DoConnect(AContext: TIdContext); override; DoDisconnect(AContext: TIdContext); override; {..........................} end; implementation procedure TTerminalServer.DoConnect(AContext: TIdContext); begin {......................} inherited; // здесь произойдет проверка наличия обработчиков и их вызов {............................} end; procedure TTerminalServer.DoDisconnect(AContext: TIdContext); begin {......................} inherited; // здесь произойдет проверка наличия обработчиков и их вызов {............................} end;

блин !!!!! все вот торможууу
я понял пасибо, да конечно они есть, они какраз виртуальный , то что доктор прописал ))))

пасибо umbra , пасибо wal

Свойства Найти похожие ветки