Перейти к содержанию
  • Регистрация

Aden1985

Пользователи
  • Публикаций

    2
  • Зарегистрирован

  • Посещение

Информация о Aden1985

  • Звание
    Новичок
  1. Разобрался. procedure TfrMain.TabClose(Sender: TObject); var activetab : Integer; begin activetab:=((Sender as TControl).Parent as TControl).Parent.Index; TabControl1.Delete(activetab); end;
  2. Подскажите пожалуйста как правильно создать вкладки в TTabControl и как потом удалять определенные вкладки. Создаю TTabControl, применяю стиль с крестиком в верхнем правом углу. Можно ли как-то получить индекс вкладки при наведении мыши. procedure TfrMain.SpeedButton2Click(Sender: TObject); begin with TTabItem.Create(TabControl1) do begin Parent := TabControl1; Text := 'NewTab'+IntToStr(NumTab); StyleLookup := 'TabItem1Style1'; StylesData['btnClose.OnClick'] := TValue.From<TNotifyEvent>(TabClose); NumTab:=NumTab+1; end; end; procedure TfrMain.TabClose(Sender: TObject); var _activetab : Integer; begin _activetab:=TabControl1.TabIndex; TabControl1.Delete(_activetab); end; В данном случае работает только если сделать вкладку активной.
×
×
  • Создать...