Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Программа и интерфейс
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 20.08.2014, 12:09
damekkoneko damekkoneko вне форума
Прохожий
 
Регистрация: 23.04.2013
Сообщения: 7
Версия Delphi: Delphi7_Lazarus
Репутация: 10
По умолчанию Обращение к скрытым вкладкам tPageControl

Здравствуйте. Прошу помощи у вас. Мне этот TPageControl (D7) гадит в душу.
Есть PageControl с некоторым количеством вкладок, нужно показывать только часть из них в разное время.
Скрыть эти вкладки получается без проблем, а вот обратиться к скрытым никак.

Следующий код работает, но выдает ошибку

Код:
Project ***.exe raised exception class EInvalidOperation with message 'Cannot focus a disabled or invisible window'. Process stopped. Use Step or Run to continue.


Код:
procedure dosomething;
var
  i : integer;
begin
 for i:=1 to PageControl.PageCount-1 do begin // первая вкладка нужна всегда
    PageControl.ActivePageIndex:=i;
    if (i>=6) and (i<=13) then // хочу показать только с 6 по 13 вкладки
      PageControl.ActivePage.TabVisible:=true
    else
      PageControl.ActivePage.TabVisible:=false; // остальные скрыть
  end;
  PageControl.ActivePageIndex:=6;
end;

Да это извращение, можно и просто по PageControl.Pages[i].TabVisible, но тогда он вообще ничего не делает, а просто мучает мне мозг.

В чем дело? О чем я не знаю?
Спасибо.
Ответить с цитированием
  #2  
Старый 20.08.2014, 13:27
Аватар для Страдалецъ
Страдалецъ Страдалецъ вне форума
Гуру
 
Регистрация: 09.03.2009
Адрес: На курорте, из окна вижу теплое Баренцево море. Бррр.
Сообщения: 4,723
Репутация: 52347
По умолчанию

Вообще-то вы делаете нечто совсем другое.
Код:
PageControl.ActivePageIndex:=i;
Этой строчкой вы вытаетесь насильственно передать фокус на недоступный элемент (если он невидим), что невозможно по определению, о чем и получаете сообщение:
'Cannot focus a disabled or invisible window'
__________________
Жизнь такова какова она есть и больше никакова.
Помогаю за спасибо.

Последний раз редактировалось Страдалецъ, 20.08.2014 в 13:30.
Ответить с цитированием
  #3  
Старый 20.08.2014, 13:53
damekkoneko damekkoneko вне форума
Прохожий
 
Регистрация: 23.04.2013
Сообщения: 7
Версия Delphi: Delphi7_Lazarus
Репутация: 10
По умолчанию

Цитата:
Сообщение от Страдалецъ
Этой строчкой вы вытаетесь насильственно передать фокус на недоступный элемент (если он невидим), что невозможно по определению...

Да, я понял, что это вэтой строчке, но каким-то образом это работает .

Тогда вопрос немного перефразирую:
Как показать скрытую (TabVisible:=false) вкладку?
Как их перебирать все и обращаться к ним? (Логичный Pages[i].TabVisible тоже выдает ошибку.)

Последний раз редактировалось damekkoneko, 20.08.2014 в 15:26.
Ответить с цитированием
  #4  
Старый 20.08.2014, 15:27
damekkoneko damekkoneko вне форума
Прохожий
 
Регистрация: 23.04.2013
Сообщения: 7
Версия Delphi: Delphi7_Lazarus
Репутация: 10
По умолчанию

А вот на пустом PageControl все работает.
ПОЧЕМУ!??!1177
Вся работа встала из-за этой гадости и моего тупизма.
Ответить с цитированием
  #5  
Старый 20.08.2014, 15:44
damekkoneko damekkoneko вне форума
Прохожий
 
Регистрация: 23.04.2013
Сообщения: 7
Версия Delphi: Delphi7_Lazarus
Репутация: 10
По умолчанию

Да что за.
Все нормально (PageControl1.Pages[i].TabVIsible - работает)... Нельзя обращаться из события компонента находящегося на скрываемой вкладке.
Чтоб его,а! т_Т
Как теперь быть?

Последний раз редактировалось damekkoneko, 20.08.2014 в 16:16.
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 02:11.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter