Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2009.12.20;
Скачать: CL | DM;

Вниз

Программа виснет при скрытие вкладок pagecontrol ов   Найти похожие ветки 

 
maxstarts   (2009-10-31 22:19) [0]

Есть два pagecontrol"a, второй лежит на первом. Хочу скрыть вкладки у них, для этого в таймере с интервалом 500 пишу:
procedure TForm1.timer1Timer(Sender: TObject);
var i:integer;
begin
//Убираем у pagecontrol"a вкладки
timer1.Enabled:=false;
for i:=0 to Pagecontrol1.PageCount -1 do
begin
Pagecontrol1.Pages[i].TabVisible := false;
tabsheet1.Visible:=True;
end;
for i:=0 to Pgс2.PageCount -1 do
begin
Pagecontrol2.Pages[i].TabVisible := false;
tabsheet.Visible:=True;
end;
timer1.Enabled:=true;
end;

Но при запуске программы, она виснет и превращается в белый цвет(цвет page control"a) и все, как быть?
Если не убирать вкладки у второго pagecontrol"a, то все нормально...
Thanks :)


 
TIF ©   (2009-10-31 22:49) [1]

Удалено модератором
Примечание: Правила конференции читаем внимательно


 
Германн ©   (2009-11-01 02:07) [2]


> maxstarts   (31.10.09 22:19)
>
> Есть два pagecontrol"a, второй лежит на первом. Хочу скрыть
> вкладки у них, для этого в таймере

А таймер зачем?


 
Amoeba ©   (2009-11-01 13:44) [3]

Автор, прочтите вдумчиво вот это
http://gunsmoker.blogspot.com/2008/10/x-y-z.html
и заново опишите задачу.



Страницы: 1 вся ветка

Текущий архив: 2009.12.20;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.013 c
2-1257101336
Norgan
2009-11-01 21:48
2009.12.20
Отображение кода функциональной клавиши


2-1256904426
И. Павел
2009-10-30 15:07
2009.12.20
Удаление Objects в TsListBox


15-1255092813
Unknown user
2009-10-09 16:53
2009.12.20
Интересная задача


1-1229527638
Afonya
2008-12-17 18:27
2009.12.20
Работа с окном другого приложения


15-1255966439
oldman
2009-10-19 19:33
2009.12.20
Говорят, сегодня День лицеев.