Переопределение не работает...:(

← →
Serd_hhc © (2002-05-19 16:11) [0]

Уважаемые мастера,

почему я не могу переопределить....

пишу

... type Z=class z1: TServerSocket; procedure Conn(Sender: TObject; Socket: TCustomWinSocket); end; ... {а потом} constructor z.OnCreate; begin z1:=TServerSocket.Create; Conn:=z1.OnClientConnect; end; ...

Заранее спасибо за ответ.

← →
Serd_hhc © (2002-05-19 16:23) [1]

Сорри, забыл constructor Create; и неправильно там написал, должно быть constructor z.Create;
А даже если написать
z1.OnClientConnect:=Conn;
То всё равно не работает.

Конструктор Create надо описать в классе, к нему передать соответствующие параметры и к тому же не забывайте что он виртуальный. Посмотрите исходники любого компонента и всё поймёте.

Переопределение не работает...:( Найти похожие ветки