Здравствуйте, _pk_, Вы писали:
[]
Сорри, в дельфях не силен, но вот минимальный код на Билдере, который работает:
class TMyEdit : public TCustomEdit
{
typedef TCustomEdit inherited;
private:
DYNAMIC void __fastcall Change()
{
OutputDebugString("Changed!");
inherited::Change();
};
public:
__fastcall TMyEdit(TComponent* AOwner) : TCustomEdit(AOwner) { }
__fastcall ~TMyEdit() {}
};
void __fastcall TForm1::FormCreate(TObject *Sender)
{
TMyEdit* ed = new TMyEdit(this);
ed->Parent = this;
ed->Left = 20;
ed->Top = 200;
}
//---------------------------------------------------------------------------
При наборе текста в этом эдите в Events log чудненько появляются строчки "Changed!". То есть все работает, как и должно быть. Видимо, проблема где-то в вашем коде.
... << RSDN@Home 1.1.3 stable >>