Тема: TabbedNotebook
Показать сообщение отдельно
  #3  
Старый 08.11.2010, 01:38
Аватар для ryderx34
ryderx34 ryderx34 вне форума
Активный
 
Регистрация: 22.01.2010
Сообщения: 211
Версия Delphi: 7, 2010
Репутация: 1349
По умолчанию

Чтобы нельзя было её открыть?
Вот код запрещающий переход на вкладку с индексом 2 пока не будет отмечен CheckBox1:
Код:
// в обработчике OnChange
procedure TForm1.TabbedNotebook1Change(Sender: TObject; NewTab: Integer; var AllowChange: Boolean);
begin
  if (CheckBox1.Checked = False) and (NewTab = 2) then // NewTab - индекс открываемой вкладки
    AllowChange := False; // AllowChange определяет можно ли на неё перейти 
end;
Ответить с цитированием