想实现treeView的onSelect事件,可没找到.求助..........

Question

当选中item时候进行判断,然后根据text查询数据库
可没找到,姐妹兄弟帮个忙啊

Answer 1

在TreeView1.OnChange事件里处理
Text:=TreeView1.Selected.Text;

Answer 2

procedure TForm1.TreeView1Click(Sender: TObject);
begin
  if treeview1.Selected=nil then exit;
  showmessage(treeview1.Selected.Text);
  //select ... from ...
end;

Answer 3

直接在OnClick事件里面实现就可以了！procedure TForm1.TreeView1Click(Sender:TObject);
var
  QueryStr:String;
begin
  if TreeView1.Selected<>Nil then
  begin
    QueryStr:=TreeView1.Selected.Text;
    //利用采集到的串内容进数据表进行相关查询
    with AdoTable1 do 
    begin
      while not EOF do 
        if FieldValues[//SomeFieldName]=QueryStr then
        begin
          //SomeActions
          Break;  //查找目标找到后跳出循环
        end
        else
          Next;
    end;
  end;
end;