Главная страница
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
7-80325
DelphiNew
2003-12-02 11:40
2004.02.25
Проблема приёма данных с СОМ порта


8-80040
Андрей Сенченко
2003-10-21 12:56
2004.02.25
Чтение тэгов MP3


14-80267
Danilka
2004-02-06 08:33
2004.02.25
Кому-нибудь еще приходят письма от www.ebay.com? :))


1-79920
rulezz
2004-02-09 20:19
2004.02.25
как обрашатся к обьектам на веб?


1-79713
Avsam
2004-02-12 16:48
2004.02.25
Application.ProcessMessage в службах