Наследование и обработка событий
Аноним
Не могу точно сказать как в Buildere, но наверное примерно так же, как в Delhpi. А там это делается так в классе TWinControl объяленны процедуры которые получают соотвествующий message виндоса (нажатие кнопки, например), выполняют какие-то действия, и вызывают пользовательский обработчик события, хранящийся в соответсвующем property. Так что все что тебе нужно, это перекрыть эту процедуру, сделать все, что ты хочешь, а затем вызвать процедуру родителя. В Delphi это можно сделать с помощью inherited. Типа так
TMyClass=class(TEdit)
....
protected
KeyPressed(SenderTObject; var Key); override;
end;
procedure TMyClass.KeyPressed(SenderTObject; var Keychar);
begin
{ваши действия}
inherited KeyPressed(Sender,Key);
end;
[ Это Сообщение было отредактировано Fantasist в 2001-10-25 2055 ]
TMyClass=class(TEdit)
....
protected
KeyPressed(SenderTObject; var Key); override;
end;
procedure TMyClass.KeyPressed(SenderTObject; var Keychar);
begin
{ваши действия}
inherited KeyPressed(Sender,Key);
end;
[ Это Сообщение было отредактировано Fantasist в 2001-10-25 2055 ]