Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Программа виснет при скрытие вкладок pagecontrol'ов [D7, XP]

maxstarts © (2009-10-31 22:19:00)
Есть два 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 :)

Amoeba (2009-11-01 13:44:00) [1]
Автор, прочтите вдумчиво вот это
http://gunsmoker.blogspot.com/2008/10/x-y-z.html
и зановоопишите задачу.

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

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

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

TIF (2009-10-31 22:49:00) [3]
Удалено модератором
Примечание: Правила конференции читаем внимательно

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »