Builder 6.0 Button, Как унаследоваться от кнопки? Опции

[Fanat]

Всем привет...Всех с наступившим..=)

Теперь вопрос:
Необходимо получить кнопку которая имеет кроме стандартных возможностей, дополнительные,
например 2 ячейки для int. Для этого, думаю, надо унаследоваться от стандартного типа TButton...

class MyButton : public TSpeedButton
{
  public:
    int n;
    int m;
};

Но как динамически её создать потом?..

[volvo]

Добавить public-конструктор (конструкторы не наследуются) и создавать через new, что-то не получается?

[Fanat]

Добавить public-конструктор (конструкторы не наследуются) и создавать через new, что-то не получается?

Как то сразу сам и не додумался..=(

//---------------------------------------------------------------------------
class MyButton : public TSpeedButton
{
  public:
    int n;
    int m;
    __fastcall MyButton(Classes::TComponent* AOwner);
};
//---------------------------------------------------------------------------
__fastcall MyButton::MyButton(Classes::TComponent* AOwner)
          :TSpeedButton(AOwner)
{
  n = 0;
  m = 0;
};
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  MyButton* Button = new MyButton(this);
  Button->m = 10;
  Button->n = 20;
  ShowMessage(Button->m);
  delete Button;
}
//---------------------------------------------------------------------------

Вот так как-то..Работает...

Сообщение отредактировано: Fanat - 4.01.2008 0:48