Перейти к содержанию
Fire Monkey от А до Я

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; В данном случае работает только если сделать вкладку активной.
×
×
  • Создать...