Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > PageControl

Автор: l0k1 22.5.2006, 18:32

Здравствуйте.
Сорри, за ламерский вопрос, но чёт не доходит.
Есть компонент, типа TPageControl, есть две кнопки, типа TButton. Кнопки переключают страницы в PageControl и всё бы хорошо, но имеються закладки/кнопки TabSheet, которые портят всю малину. Как отключить переключение страниц по нажатию на этих закладках, ну или на крайний случай убрать их.

Автор: Yanis 22.5.2006, 18:42

Для создания визардов лучше подходит TNotebook. А вообще можно так:

Код

procedure TForm1.PageControl1Changing(Sender: TObject;
  var AllowChange: Boolean);
begin
  AllowChange := False;
end;

Автор: Poseidon 22.5.2006, 20:02

Цитата(l0k1 @ 22.5.2006, 18:32

)

Как отключить переключение страниц по нажатию на этих закладках, ну или на крайний случай убрать их.

Убрать очень просто. Для каждой закладки установи свойство TabVisible в False (можно в инспекторе обьектов).

Код

procedure TForm1.FormCreate(Sender: TObject);
begin
TabSheet1.TabVisible:= False;
TabSheet2.TabVisible:= False;
end;