Закрыть вкладки TabControl

Posted by micher under Delphi

Как реализовать закрытие вкладки TabControl?

Shouldercannon

procedure TForm1.BCloseClick(Sender: TObject);

var

  i: Integer;

begin

  if TabControl1.Tabs.Count > 1 then // Если Tabs больше одного

  begin

    i := TabControl1.TabIndex - 1; // Задаём индекс следуюшего Tab справа налево

    TabControl1.Tabs.Delete(TabControl1.TabIndex);

    TabControl1.TabIndex := i; // Переходим на следующий Tab

  end

  else

  begin

    TabControl1.Tabs.Delete(TabControl1.TabIndex);

    Close;

  end;

end;

Но есть один минус — вкладки нормально удаляются при раскладе 5-4-3-2-1, но если начать удалять так: 3-2-1, то после удаления остаются вкладки 4 и 5, и нет активных вкладок, вследствии чего появляется ошибка Failed to delete tab at index -1. С TabControl работаю первый раз и не могу сообразить как в данном случае реализовать переключение на первую вкладку при потере активной вкладки.

FaTaL

удаляй с последней вот так например:

TabControl1.Tabs.Delete(TabControl1.Tabs.Count -1);

тема на форуме

Похожие статьи

• Цикл по Tabs в TabControl
• Вставить текст в Edit Tab