PageControl и кнопка Next

← →
юный падаван (2005-11-26 15:54) [0]

Есть PageControl, у него страницы 1,2,3, и т.д. У страниц TabVisible=false; И есть кнопка при нажатии которой нужно менять ActivePage на следующую страницу. Как сделано на инсталляторах. Если положить кнопку Next на страницу, то при смене страницы кнопка конечно исчезает. Создать на каждой странице такую же кнопку? Вопрос. Как расположить одну кнопку в области PageControl, но так чтобы ее не пришлось добавлять на каждую страницу?

← →
sniknik © (2005-11-26 16:24) [1]

попробуй положи ее на форму, после перенеси в нужное место области PageControl, если она скроется тогда по правой кнопке на PageControl выбери и кликни "Control"->"Send To Back", или у кнопки сделай "Bring To Front"

← →
begin...end © (2005-11-27 18:59) [2]

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

← →
юный падаван (2005-11-27 21:28) [3]

>>begin...end © (27.11.05 18:59) [2]

Ниже невозможно, так форма построена.

>>sniknik © (26.11.05 16:24) [1]

Так не получилось. Если перетащить с формы, то уходит вниз, ни "Send To Back" ни "Bring To Front" не помогает, если ложить поверх PageControl, то исчезает вместе с страницей. А есть еще какие то варианты?

← →
sniknik © (2005-11-28 00:54) [4]

> А есть еще какие то варианты?
менять парента можно попробовать при смене страницы
procedure TForm1.PageControl1Change(Sender: TObject);
begin
Button1.Parent:= PageControl1.ActivePage;
end;

но вообще странно что не получилось, влияние D5? у меня в 7 без проблем.

Можно содать контрол с св-вом Align:

{Высота Panel1 меньше высоты страницы PageControl1} procedure TForm1.FormCreate(Sender: TObject); begin Panel1.Parent := PageControl1; Panel1.Align := alBottom; end;

Тогда он всегда виден. На эту панельку можно и положить кнопки.

> Ниже невозможно, так форма построена.

Перестроить форму должен ты, падаван. Программа разумно устроена быть должна!

PageControl и кнопка Next Найти похожие ветки