Текущий архив: 2003.05.08;
Скачать: 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 вся ветка
Текущий архив: 2003.05.08;
Скачать: CL | DM;
Память: 0.49 MB
Время: 0.019 c
