Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > DockTabSet - как удалить tab

Автор: Albinos_x 20.4.2014, 19:26

Доброе время суток!

что то ни как не удается удалить tab

создаются табы так:

Код

...
FListFile:=TFListFile.Create(Application);
   FListFile.ManualDock(DockTabSet1, nil, alClient);
...

при закрытии таба нужно чтобы форма была закрыта и освобождена память.
отловил событие закрытия:

Код


procedure TFReaderC.DockTabSet1TabRemoved(Sender: TObject);
var s:string;
    i:integer;
begin
DockTabSet1.TabIndex:=0;
for I := 1 to DockTabSet1.DockClientCount-1 do
    if not DockTabSet1.DockClients[i].Visible then
       begin
       DockTabSet1.DockClients[i].DestroyComponents; // <-- не работает
       DockTabSet1.Tabs.Delete(i);                               // <-- не работает
       DockTabSet1.DockClients[i].Destroying;            // <-- не работает
      // ну и т.д.....
       break;
       end;
ShowMessage('Проверка '+inttostr(DockTabSet1.DockClientCount));
end;

пытался еще преобразовать в тип формы, типа

Код


form:=DockTabSet1.DockClients[i] as Tmyform;
form.free;

ошибок при таких вариантах удаления разные... некоторые access violation, некоторые дают list index out of bounds(1)
и во всех случаях количество клиентов не уменьшается, данные и файлы остаются захваченными формой.

спасибо!

Автор: Albinos_x 20.4.2014, 21:36

немного извратился, но решил проблему так:

Код


procedure TFReaderC.DockTabSet1TabRemoved(Sender: TObject);
var s:string;
    i,j,k:integer;
    form:TFMCReader;
begin
DockTabSet1.TabIndex:=DockTabSet1.FirstIndex;
for I := 1 to DockTabSet1.DockClientCount-1 do
   if not DockTabSet1.DockClients[i].Visible then
       begin
       for j:= 0 to Length(masFMCReader)-1 do       // глобальный массив форм
           begin
           if masFMCReader[j].Name=DockTabSet1.DockClients[i].Name then
              begin
              masFMCReader[j].Close;
              for k := j to Length(masFMCReader)-2 do
                  masFMCReader[k]:=masFMCReader[k+1];
              SetLength(masFMCReader, Length(masFMCReader)-1);
              break;
              end;
           end;
       break;
       end;

//ShowMessage(inttostr(DockTabSet1.DockClientCount));  - при включении строки выпадает ошибка
end;