Где найти компонент 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]

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

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

Все.

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

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