Скачать: CL | DM;

PageControl или я торможу   Найти похожие ветки 

← →
Viktor Kushnir ©   (2003-04-26 17:25) [0]

Что-то совсем плохо моей голове...
Скажите люди, как в PageControl убрать закладки, чтобы было видно только текущую страницу, а закладок не было.

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

---

← →
Song ©   (2003-04-26 17:27) [1]

TTabSheet.Visible ?

---

← →
Viktor Kushnir ©   (2003-04-26 17:29) [2]

Нет, это не подходит. Изображения закладок-то остаются. Мне их убрать надо, а не содержимое страницы.

---

← →
Song ©   (2003-04-26 17:36) [3]

TTabSheet.Free

---

← →
Calm ©   (2003-04-26 18:40) [4]

TTabSheet.VisiblePage ?

---

← →
Viktor Kushnir ©   (2003-04-26 18:45) [5]

Да нет же, мне саму страницу не надо убирать, мне нужно чтобы юзер посто не видел закладок для переключения страниц.

Ладно, я просто закладки панелью накрыл, и их теперь не видно. Неохорошо конечно, но пока сойдет.

---

← →
Набережных С.   (2003-04-26 18:50) [6]

TTabSheet.TabVisible

---

← →
Song ©   (2003-04-26 20:05) [7]

:) Всё перебрали

---

← →
Viktor Kushnir ©   (2003-04-28 07:04) [8]

Все равно всем спасибо за ответы.

---

← →
Babay ©   (2003-04-28 07:10) [9]

Может каждую страницу организовать как отдельную форму а этим формам парент задать соответствующий и играть со свойством Visible этих форм?
у меня есть подобная реализация все работает на ура.

---

← →
Viktor Kushnir ©   (2003-04-28 07:14) [10]

Мне надо все сдалать в пределах одной формы. Нбор лежащих друг на друге TPanel не предлогать.

---

← →
Separator ©   (2003-04-28 07:31) [11]

procedure TForm1.Button1Click(Sender: TObject);
begin
PageControl1.Pages[2].TabVisible:= false
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
PageControl1.Pages[2].TabVisible:= true
end;

---

← →
MBo ©   (2003-04-28 07:31) [12]

Набережных С. (26.04.03 18:50)
TTabSheet.TabVisible

Дали же ответ. Только SelectNextPage в этом случае не будет заходить на страницы с невидимыми закладками, так что переключать нужно другим способом, например, ActivePageIndex и т.д.

---

← →
MBo ©   (2003-04-28 07:32) [13]

>Separator
TabVisible:= true
это не обязательно для показа самой страницы

---

← →
Separator ©   (2003-04-28 07:47) [14]

procedure TForm1.btnHideTabsClick(Sender: TObject);
var
i: integer;
begin
with PageControl1 do begin
for i:= 0 to PageCount - 1 do
Pages[i].TabVisible:= false;
ActivePageIndex:= 0
end

end;

procedure TForm1.btnNextTabClick(Sender: TObject);
begin
with PageControl1 do begin
if ActivePageIndex <> PageCount - 1 then
ActivePageIndex:= ActivePageIndex + 1
else
ActivePageIndex:= 0
end
end;

procedure TForm1.btnPrevTabClick(Sender: TObject);
begin
with PageControl1 do begin
if ActivePageIndex <> 0 then
ActivePageIndex:= ActivePageIndex - 1
else
ActivePageIndex:= PageCount - 1
end
end;

---

← →
REA ©   (2003-04-28 10:48) [15]

В догонку. Я таким способом делал Wizard, но не особенно удобно. Нет ли способа попроще и чтобы стандартные кнопки вперед-назад еще работали?

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.48 MB
Время: 0.013 c