Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Система";
Текущий архив: 2004.05.30;
Скачать: [xml.tar.bz2];

Вниз

Переключение между формами с помощью набора закладок   Найти похожие ветки 

 
CyBeR ©   (2004-04-28 16:04) [0]

Добрый день!
Как создавать закладку при создании формы, а потом по TabSet.Change активировать именно это окно и чтобы при закрытии формы закладка удалялась есс-но.


 
clickmaker ©   (2004-04-28 16:28) [1]

Form.OnCreate - TS := TTabSet.Create(Application)
TabSet.OnChange - Form.BringToFront или Form.Visible := true;
Form.OnDestroy - TS.Free


 
CyBeR ©   (2004-04-28 17:19) [2]

ExamForm.OnCreate:
addedindex:=ParentFM.TabSet.Tabs.AddObject("MyForm",ExamForm);
ParentFM.TabSet.TabIndex:=addedindex;

ParentFM.TabSet.Change:
if (Sender is TTabSet) then
   with (Sender as TTabSet) do
   TForm(TabSet.Tabs.Objects[TabSet.TabIndex]).Show;

напишите, пожалуйста, в чем косяк???


 
clickmaker ©   (2004-04-28 17:25) [3]


> CyBeR ©   (28.04.04 17:19) [2]

А в чем косяк проявляется?


 
CyBeR ©   (2004-04-28 17:45) [4]

>>clickmaker ©
Косяк в том, что при создании формы пишет ListIndex out of bounds(-1). Я прекрасно понимаю что это значит, но как вылечить ума не приложу, перепробовал уже все



Страницы: 1 вся ветка

Форум: "Система";
Текущий архив: 2004.05.30;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.03 c
8-1079904163
dance
2004-03-22 00:22
2004.05.30
gif


8-1078934561
Александр1
2004-03-10 19:02
2004.05.30
Исчезающий Image


8-1075586058
Exciter
2004-02-01 00:54
2004.05.30
Как проиграть MIDI файл без TMediaPlayer ?


3-1083833695
Михаил
2004-05-06 12:54
2004.05.30
Подстановочные поля


1-1084361111
новичок_из_сыктывкара
2004-05-12 15:25
2004.05.30
строку наоборот





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский