Версия для печати темы

Автор: Fanat 4.01.2008 0:24

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

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

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

Автор: volvo 4.01.2008 0:34

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

Автор: Fanat 4.01.2008 0:47

Цитата(volvo @ 3.01.2008 20:34)

//---------------------------------------------------------------------------
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;
}
//---------------------------------------------------------------------------