Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.032 c