intraweb中的IWtreeview点击事件问题

Question

在IWtreeview中，提取第二层目录的时候，是用点击事件触发的，运行以后我点击几次相应就触发几次该事件，我只想让它展开一次。代码如下：procedure TIWForm1.IWAppFormCreate(Sender: TObject);
var
  temp:Tiwtreeviewitem ;
begin  sqlQuery1.SQL.Text :='select w_mingcheng,w_bianhao from nk_wenjianjia where  w_fuwenjianjiabianhao=''0''order by w_bianhao asc ';
  sqlQuery1.Close;
  try
    sqlQuery1.Open;
  except
    exit;
  end;
  iwtreeview1.Items.Clear;
  while NOT sqlQuery1.Eof do
    begin
      temp:=iwtreeview1.Items.Add ;
      with temp do
        begin
          Caption := sqlQuery1.FieldByName('W_mingcheng').AsString;
          Expanded := true;
          parentitem:=nil;
          tag:=sqlQuery1.FieldByName('W_bianhao').Asinteger;
        end;
      sqlQuery1.Next;
    end;
end;
procedure TIWForm1.folderonclick(sender:TOBJECT);
begin
  //
end;
procedure TIWForm1.IWTreeView1TreeItemClick(Sender: TObject;
  ATreeViewItem: TIWTreeViewItem);
begin
  sqlQuery1.Close;
  sqlQuery1.SQL.Text :='select w_mingcheng,w_bianhao from nk_wenjianjia'
                       +' where w_fuwenjianjiabianhao="'+ inttostr( ATreeViewItem.tag)+'" order by w_bianhao asc ';
  try
    sqlQuery1.Open;
  except
    exit;
  end;
 while NOT sqlQuery1.Eof do
  begin
    with iwtreeview1.Items.Add do
      begin
        Caption := sqlQuery1.FieldByName('W_mingcheng').AsString ;
        Expanded := false ;
        parentitem:=ATreeViewItem ;
      end;
    sqlQuery1.Next;
  end;
 free();end;initialization
  TIWForm1.SetAsMainForm;end.

Answer 1

怎么没人理啊，请各位高手指教一下啊。