Показать сообщение отдельно
  #4  
Старый 11.11.2010, 22:52
Аватар для Electronic_Arts
Electronic_Arts Electronic_Arts вне форума
Местный
 
Регистрация: 13.07.2006
Адрес: на земле
Сообщения: 562
Версия Delphi: Delphi 11
Репутация: 18
Восклицание

Я пасс...

Проблема в том что в режиме OnChange для компонента Tabset не получается выбрать страницу - и использовать Index страницы..

добавляется всё без проблем - но при клике на второй странице получаешь индекс 4
при клике на 4 страницу получаешь индекс 0
на первой 3
на второй 4 и т.д. - оно сама по себе смешивается не получается получить правильно получить индекс выбранной страницы...


Ребята знатоки может кто то знает как это можно реализовать?(просто мне самому стало интересно как же так не получаться)
вот последний код
Код:
begin
tform2.Create(self);
(activemdichild as tform2).Caption:='New'+' '+inttostr(form1.Tag);
(activemdichild as tform2).Tag:=form1.Tag; //потом по Тегу можно будет их закрывать
tabset1.Tabs.Insert(form1.Tag,(activemdichild as tform2).Caption);
tabset1.TabIndex:=form1.Tag;
form1.Tag:=form1.Tag+1;
end;
__________________
Нет ничего не возможного. Вопрос только во времени...
Ответить с цитированием