Форум: "Начинающим";
Текущий архив: 2013.09.29;
Скачать: [xml.tar.bz2];
Внизмодификация стандартных компонентов Найти похожие ветки
← →
Теркин © (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 имеется.
← →
Теркин © (2013-01-13 22:27) [4]Спасибо за совет, обязательно попробую опыта применения предложенного Вами компонента вообще никакого признаюсь честно.
← →
Юрий Зотов © (2013-01-13 22:36) [5]http://warayg.narod.ru/context/prog/Delphi/3/Glava5/Index6.html
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2013.09.29;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.002 c