VPF::PageControl - Форум программистов

l0k1

Дата 22.5.2006, 18:32 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 14
Регистрация: 11.8.2005

Репутация: нет
Всего: нет

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

Yanis

Дата 22.5.2006, 18:42 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111

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

Код

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

Это сообщение отредактировал(а) Yanis - 22.5.2006, 18:43

--------------------

*щёлк*

Poseidon

Дата 22.5.2006, 20:02 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133

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

)

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

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

Код

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

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »