модификация стандартных компонентов

← →
Теркин © (2013-01-12 15:51) [0]

Уважаемые программисты объясните как сделать так чтобы для компоненты TCheckListBox дополнительно к существующему списку Items добавить объекты TComboBox и сделать их видимыми. Попытка модернизации стандартной компоненты при помощи процедуры
procedure TFHarakteristikaPotrebitel.CLBActivate (var DBGRid:TDBGrid;var CLB:TCheckListBox); var i:integer; begin for i:=0 to dbgrid.Columns.Count -1 do begin clb.Items.AddObject(dbgrid.Columns[i].Title.Caption,TComboBox.Create(clb.Owner)) ; (clb.Items.Objects[i] as TComboBox).Parent:=clb.Parent; (clb.Items.Objects[i] as TComboBox).Left:=200; (clb.Items.Objects[i] as TComboBox).Top:=10+i*10; (clb.Items.Objects[i] as TComboBox).Width:=100; (clb.Items.Objects[i] as TComboBox).Height:=10; end; end;
приводит к нежелательным последствиям. Не все элементы списка TCheckListBox помещаются в окне, появляется элемент прокрутки ScrollBox, а все созданные TComboBox попадают на видимую часть, и видны постоянно так сказать не прячутся

← →
Юрий Зотов © (2013-01-13 01:47) [1]

Не лучше ли просто использовать TTreeView?

← →
Теркин © (2013-01-13 18:57) [2]

В контексте применения TTreeView не подходит. Назначение компонента такое - прочитать все поля базы данных. TComboBox определяет значение поля по умолчанию, TCheckListBox указывает название поля а флаг использовать параметр по умолчанию или нет. Предложенный Вами TTreeView позволит справится с такой задачей?

← →
Юрий Зотов © (2013-01-13 19:43) [3]

Обозначим: ЧБ - строка чекбокса, КБ - строка комбобокса. В TTreeView они могут выглядеть так:
+ЧБ1 | + КБ11 | + КБ12 | ... | + КБ1N | +ЧБ2 | + КБ21 | + КБ22 | ... | + КБ2N | ... +ЧБM + КБM1 + КБM2 ... + КБMN
Куда ставить флаг - тоже у TTreeView имеется.

Спасибо за совет, обязательно попробую опыта применения предложенного Вами компонента вообще никакого признаюсь честно.

http://warayg.narod.ru/context/prog/Delphi/3/Glava5/Index6.html

модификация стандартных компонентов Найти похожие ветки