Builder 6.0 Опции

[Fanat]

При создании динамически кнопки необходимо что бы она оказалась поверх всех компонентов...
BringToFont() и SendToBack() не работает в этом случае...Как быть?..

[volvo]

Положи TPanel (с размером, равным размеру кнопки) на форму, а уж на нее - свою кнопку, тогда кнопка будет "сверху"...

[Fanat]

Положи TPanel (с размером, равным размеру кнопки) на форму, а уж на нее - свою кнопку, тогда кнопка будет "сверху"...

А как то ещё можно?..Потому что кнопок много...то есть зарание неизвесто сколько нужно панелей...
Одна большая панель также не подходит...

[volvo]

Ты не понял... При создании кнопки - создавай перед этим панель, тоже динамически...

[Fanat]

Ты не понял... При создании кнопки - создавай перед этим панель, тоже динамически...

А как вставить на динамически созданную панель кнопку?

   
    MyButton *B = new MyButton(this);
    TPanel *P = new TPanel(Panel1);

    Main->InsertControl(P);
    Main->P->InsertControl(B);

Так не работает...

Добавлено через 12 мин.

А как вставить на динамически созданную панель кнопку?

   
    MyButton *B = new MyButton(this);
    TPanel *P = new TPanel(Panel1);

    Main->InsertControl(P);
    Main->P->InsertControl(B);

Так не работает...

Всё...спасибо разобрался...

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

[volvo]

Я бы сделал так:

class MyButton : public TSpeedButton
{
	TPanel *parent;
  public:
	int n, m;
	__fastcall MyButton(Classes::TComponent* AOwner, const TRect& rect);
};

__fastcall MyButton::MyButton(Classes::TComponent* AOwner, const TRect& rect)
		  :TSpeedButton(AOwner)
{
	parent = new TPanel(AOwner);
	parent->BoundsRect = rect;
	parent->BevelOuter = bvNone;
	parent->Parent = dynamic_cast<TWinControl*>(AOwner);

	m = n = 0;
	this->Parent = parent;
};

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  static MyButton* Button = new MyButton(this, Rect(10, 10, 10+23, 10+23));
  Button->m = 10;
  Button->n = 20;
  Button->Show();
}

(эта тема является логическим продолжением темы о наследовании от Button-а, я не ошибся?)

[Fanat]

(эта тема является логическим продолжением темы о наследовании от Button-а, я не ошибся?)

Нет, не ошибся...Очень интересно спасибо...=)
А что это за свойства?..
parent->BoundsRect
parent->BevelOuter
parent->Parent

[volvo]

А что это за свойства?..

Как это "что за свойства"? Обычные свойства TPanel...

Первое - координаты прямоугольника, содержащего панель.
Второе - стиль отображения наружной границы панели.
Третье - собственно "родитель" панели...