j := 0;
for i := 0 to TreeView1.Items.Count - 1 do
if TreeView1.Items.Level = 0 then begin
Inc(j);
TreeView1.Items.Data := Pointer(j);
end;
Запуск exe'шника с ключем (Delphi)
Всем доброго времени суток! Задачка - есть компонент TreeView, нужно чтобы каждому родительскому узлу присваивался уникальный идентификатор, который бы выступал ключем. Нужно чтоб при запуске ехе'шника с одним из этих ключей сразу раскрывался соответвующий ключу узел. Нутром чую что решение почти элементарное, но к сожалению нету времени книги полистать..
Можно воспользоваться свойством Data узлов.
Заполнить родительские узлы, например так:
А при входе в программу делать что-то вроде этого:
Заполнить родительские узлы, например так:
Код:
А при входе в программу делать что-то вроде этого:
Код:
if ParamCount = 1 then begin
j := StrToInt(ParamStr(1));
for i := 0 to TreeView1.Items.Count - 1 do
if TreeView1.Items.Data = Pointer(j) then begin
TreeView1.Items.Expand(False);
Break;
end;
end;
j := StrToInt(ParamStr(1));
for i := 0 to TreeView1.Items.Count - 1 do
if TreeView1.Items.Data = Pointer(j) then begin
TreeView1.Items.Expand(False);
Break;
end;
end;
сенкс, я так и сделал. спасибо за подсказку!