最強の2chブラウザJane

お気に入りツリービューで一つしか開かない

procedure TMainWnd.FavoriteViewExpanded(Sender: TObject; Node: TTreeNode);
var
　n:integer;
begin
　if Node.Parent<>nil then begin
　 with Node.Parent do begin
　 for n:=0 to Count-1 do begin
　 if Item[n].Expanded=true then begin
　 if Item[n]<>Node then begin
　 Item[n].Expanded:=false;
　 end;
　 end;
　 end;
　 end;
　 Node.Selected:=true;
　end;
end;