| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Свойства

Tonich ©   (2005-11-23 15:35:00) 

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

---

Tonich   (2005-11-23 17:01:00) [1]

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

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

---

umbra   (2005-11-23 16:51:00) [2]

см. 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;


---

wal   (2005-11-23 16:41:00) [3]

> [2] wal ©   (23.11.05 16:10)
> Наверняка у предка соответствующе методы есть, которые перекрыть
> можно.

---

Tonich   (2005-11-23 16:28:00) [4]

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

> TTerminalServer = class(TIdFTPServer)

в конструкторе делаю следующее

constructor TTerminalServer.Create(AOwner:TComponent);
begin
inherited Create(AOwner);
......
OnConnect := Connect;
OnDisconnect := Disconnect;
end;

ну затем понят что-то делаю в процедурах  Connect/Disconnect;
все! теперь на этой стадии будим считать что пректироваение компонента завершено, устнавливаем его

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

---

umbra   (2005-11-23 16:23:00) [5]

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

---

wal   (2005-11-23 16:20:00) [6]

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

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

---

Tonich   (2005-11-23 16:16:00) [7]

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

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

---

wal   (2005-11-23 16:10:00) [8]

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

С уважением.

---

Tonich   (2005-11-23 16:08:00) [9]

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

---

Наверх