Delphi相談室その４
■ このスレッドは過去ログ倉庫に格納されています
0698デフォルトの名無しさん
NGNG>TreeListでルート項目の二つ目のindexを求める
procedure TForm1.Button1Click(Sender: TObject);
var
i,Count:integer;
begin
Count := 0;
for i := 0 to TreeView1.Items.Count-1 do
if TreeView1.Items[i].Level = 1 then begin
Inc(Count);
if Count = 2 then
Label1.Caption := TreeView1.Items[i].Text;
end;
end;
広場でもレス、書けよ
■ このスレッドは過去ログ倉庫に格納されています