Провека "Уничтожен ли компонент"

V88

Well-known member
22.10.2008
51
0
#1
Всем привет!
Я динамически создаю для PageControl вкладки TabSheets через массив:
var TS:array of TTabSheets;
................
TS[k]:=TTabSheet.Create(Self);
..........

В программе для некоторых случаев надо удалить ненужные вкладки путем PageControl.ActivePage.Destroy

Проблема в том, каким образом определить какая вкладка удалена:
for k:=0 to PageControl.PageCount-1 do
TS[k]..................
В этом коде выдается ошибка из-за того, что какой-то TS[k-й] удален. Другими словами, какой TS[k-й] удален, а какой нет?
 
09.11.2009
665
1
#2
Врядле поможет но попробуй
Код:
1 
for k:=0 to PageControl.PageCount-1 do
if TS[k]=nil then f:=0; //или в место nil null

2
for k:=0 to PageControl.PageCount-1 do
try
if TS[k]=nil then f:=0;
except
f:+0;
end;
И в место PageControl.PageCount-1 попробуй length(TS)
 

V88

Well-known member
22.10.2008
51
0
#3
TS[k]=nil помогло, только еще надо было к PageControl.ActivePage.Destroy дописать
for i:=0 to PageControl.PageCount-1 do
if PageControl.ActivePage = TS then begin
TS:=nil;
PageControl.ActivePage.Destroy;
end;

Спасибо Dock1100, сам как то и не догадался сразу.
 
S

SNike

#4
Есть еще полезная штука: FreeAndNil, если не ошибаюсь из модуля SysUtils