Подскажите пожалуйста как правильно создать вкладки в 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;
В данном случае работает только если сделать вкладку активной.
Вопрос
Aden1985
Подскажите пожалуйста как правильно создать вкладки в 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;
В данном случае работает только если сделать вкладку активной.
Ссылка на комментарий
4 ответа на этот вопрос
Рекомендуемые сообщения
Присоединяйтесь к обсуждению
Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.