TreeView с Checkbox

[bilibian]

Привет!

Использую данную конструкцию для того, чтобы на узлах появились чекбоксы:

procedure TForm3.FormCreate(Sender: TObject);
const TVS_CHECKBOXES = $0100;
var
Style: DWORD;
begin
Style := GetWindowLong(TreeView1.Handle, GWL_STYLE);
Style := Style or TVS_CHECKBOXES;
SetWindowLong(TreeView1.Handle, GWL_STYLE, Style);
end;

Далее создаю родителя:

TreeView1.Items.Add(NIL,'Список1');

Далее в цикле добавляю дочерние элементы:

for k := 0 to 10 do
	TreeView1.Items.AddChild(TreeView1.items[0],'Пункт'+inttostr(k));

Тыкаю на чекбокс родителя и флажок появляется только у родителя, но мне необходимо, чтобы при клике на чекбокс родителя помечались еще и все его дочерние элементы.

Как это сделать?

[Человек_Борща]

Самому программно обойти все дочерние эл-ы и выставить им птыц.

[bilibian]

Человек_Борща

Как можно осуществить такую же задачу как ТУТ??

Есть ли возможность передать параметр?

[evg_m]

Как можно осуществить такую же задачу как ТУТ??

использовать ни add а AddObject

аналогично.
TreeView1.Items.AddChild....

[bilibian]

evg_m

Спасибо!

[bilibian]

Можно ли передать более одного параметра?

[northener]

Сообщение от bilibian

Можно ли передать более одного параметра?

В класс или запись можно включить хоть 100500 параметров. А в AddObject можно передать ссылку.

[bilibian]

Можно ли таким способом передать параметр тип которого string? Пока получается передать только Integer.

[bilibian]

Сообщение от northener

В класс или запись можно включить хоть 100500 параметров. А в AddObject можно передать ссылку.

Можно примерчик?

[bilibian]

Юзал гугл на тему, как передать более двух параметров через AddObject и ничего толкового я не нашел. Использовал все запросы которые в голове крутились.

Передавать несколько параметров в одной строке, а потом их разделять, это же бред.

.AddObject('Пункт1',TObject(PChar('param1|param2|param3')));

Помогите примером или ссылочкой.