Re[5]: OnChange
От: Flamer Кипр http://users.livejournal.com/_flamer_/
Дата: 03.12.04 20:37
Оценка:
Здравствуйте, _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 >>
 
Подождите ...
Wait...
Пока на собственное сообщение не было ответов, его можно удалить.