Здравствуйте корифеи С++!
Помогите сделать панель, подобно Wizard'у или меню Installation, то есть, хотелось бы иметь возможность листать панели кнопками "Next", "Back". Как такое сделать?

Если в Билдере, то на ButtonClick динамически расставляешь компоненты ...

Хотелось бы кода.

Кладешь на форму с твоими двумя кнопками PageControl. Создаешь ему TabSfheet столько, сколько у тебя будет панелей. Раставляешь на них все что нужно и у каждой выставляешь свойствво ТabVisible в false
На кнопки навешиваешь обработчики

Код

void __fastcall TForm1::NextButtonClick(TObject *Sender) {     PageControl1->SelectNextPage(true, false); } void __fastcall TForm1::PrevButtonClick(TObject *Sender) {      PageControl1->SelectNextPage(false, false); }

Можно навесить один обработчик на обе кнопки

Код

void __fastcall TForm1::ButtonClick(TObject *Sender) {     // здесь NextButton - кнопка для листания вперед      PageControl1->SelectNextPage(Sender == NextButton,  false); }

Спасибо, попробую.

Попробовал, только если поставить свойство ТabVisible в false, в программе не видно не только вкладки страниц, но и те компоненты, что я на них разместил. И еще, мне нужно листать страницы не по очереди, а например так: допустим на 1-й странице у меня 3 RadioButton, в зависимости от выбора одного из них, кликая на кнопке Next, открывается 2, 3 или 4-я страница. И так далее все листается в зависимости от выбора пользователя. Тогда может быть сделать так, поставить свойство ТabVisible в false и код:

Код

//--------------------------------------------------------------------------- void __fastcall TForm1::FormActivate(TObject *Sender) { TabSheet1->Visible=true; } //--------------------------------------------------------------------------- void __fastcall TForm1::NextButtonClick(TObject *Sender) { //здесь поставить условие, в зависимости, что отмечено в RadioButton //и результаты ниже true или false TabSheet1->Visible=false; TabSheet2->Visible=true; TabSheet3->Visible=false; TabSheet4->Visible=false;  //  и т.д. } //--------------------------------------------------------------------------- void __fastcall TForm1::PrevButtonClick(TObject *Sender) { TabSheet1->Visible=true; TabSheet2->Visible=false; TabSheet3->Visible=false; TabSheet4->Visible=false; //  и т.д.  } //---------------------------------------------------------------------------

Только код громоздкий получается. И выходит надо кнопки Prev и Next на каждую TabSheet ставить. Или подскажи, пожалуйста, как лучше.
Заранее благодарю.

Тты сообшения чиатаешь? Пишешь о TabVisible , а в коде Visible. Я тебе говорю про свойство TabVisible у TabSheet, а ты устанавливаешь в false свойсто Visible. Естестенно TabSheet' перестают быть видимыми. TabVisible просто убирает закладки, которые в визарде не нужны.
Ну вообще визарды делают так , что страницы, открываются по порядку, но если тебе нужно

Код

PageContol1->ActivePageIndex = 0;// или любой другой индекс TabSheeft

Между прочим, неужто так трудно в help заглянуть. Там это все прописано

Уважаемый Вячеслав. Как я уже писал, даже если выставить false не в Visible, а в TabVisible, все равно в программе не видно компонентов, которые на TabSheet. Не знаю, но у меня так получается. А код – это уже мои размышления. За советы спасибо, они мне очень помогли.



--------------------------------
С уважением, Николай

Цитата

Как я уже писал, даже если выставить false не в Visible, а в TabVisible, все равно в программе не видно компонентов, которые на TabSheet.

Николай, попробуйте вот так:

Код

int col_page = 5; //количество страниц PageControl'а void __fastcall TForm1::FormCreate(TObject *Sender) {  for(int i=0; i<col_page; i++)   PageControl1->Pages[i]->TabVisible = false; }

Когда ставишь false в TabVisible автоматически ставится false и в Visible, поэтому потом нужно опять изменять Visible на true. Вот моё упущение!