VPF::DockTabSet - как удалить tab - Форум программистов

Albinos_x

Дата 20.4.2014, 19:26 (ссылка)

(нет голосов)

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 26
Всего: 108

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

что то ни как не удается удалить 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 (ссылка)

(нет голосов)

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 26
Всего: 108

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

Код


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;

--------------------

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »