Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.02.25;
Скачать: CL | DM;

Вниз

Где найти компонент ListBox+PageControl?   Найти похожие ветки 

 
Miwa ©   (2004-02-12 05:17) [0]

Собственно, сабж.
В "Опере", "ИБЭксперте" опции так реализованны. Только не говорите, что надо бегать п оформе и ставить (Components[i] as TWinControl).Visible.


 
Defunct   (2004-02-12 06:02) [1]

Как насчет такого:

TPageControlWithListBox = Class(TPageControl)
Private
FListBox : TListBox;
..
Published
property ListBox:TListBox Read FListBox;

End;

и руцями дописать остальное


 
Miwa ©   (2004-02-12 06:27) [2]

Да все бы ничего, только в дизайн-тайме что-то не получается ничего сделать :о)). А в рантайме я и без этого справлюсь, например так:

for i:=0 to listbox1.count-1 do
if (components[i] as twincontrol).tag=i then (components[i] as twincontrol).visible:=true else (components[i] as twincontrol):=false;

Мне собсственно из-за дизайн-тайма оно и понадобилось.


 
miwa ©   (2004-02-12 17:28) [3]

Вопросс все еще актуален.


 
RIMMER ©   (2004-02-12 18:46) [4]

Используй PageControl, только там нужно скрыть вкладки (меняются какие-то свойства каждой из вкладок, вроде ЕфиМшышиду илит, я так точно делал, но сейчас буквально написать не могу, сижу в клубе, где Дельфей в помине не стояло). В ListBox обрабатываешь OnClick, где пbitim примерно следующее (опять же за точность названия свойств не ручаюсь):
PagrControl1.ActivePage := ListBox1.ItemIndex;

Все.

Ну разве что при инициализации формы надо выставлять активной первую вкладку, а иначе запомнится последняя редактированная в Design Time страница.



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

Текущий архив: 2004.02.25;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.02 c
14-80205
IronHawk
2004-01-29 11:34
2004.02.25
TeamSource 6.0 задрал, глюки при Check In!


1-79697
Builder
2004-02-13 02:19
2004.02.25
Сообщение об ошибке


3-79657
Sergey V
2004-01-31 06:58
2004.02.25
Странное дело с коннектом к SQL-Серверу


6-80065
L0N6
2003-12-17 17:35
2004.02.25
Быстрая передача данных по сети


1-80007
Den_K2004
2004-02-13 10:25
2004.02.25
Как подсунуть свои картинки в TWebBrowser