在OnChange事件中写入如下的代码: If Node.GetFirstChild = Nil Then Begin //写入你要在DBGrid重要显示的内容!!! End;
那就在MOUSEDOWN中用GETNODEAT(X,Y);保证灵验
procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode); begin if not TreeView1.Selected.HasChildren then //自己的代码 end;
if not TreeView1.Selected.HasChildren then //自己的代码 AdoQuery1.Sql.clear; AdoQuery1.Sql.add('select * from table_name where feild ='+TreeView1.Selected.text)
在OnChange事件中写入如下的代码: If Node.GetFirstChild = Nil Then Begin Query.Close; Query.SQL.Clear; Query.SQL.Add( 'Select * From Table Where Name = ' + Node.Text ); Try Query.Open; Except End; End;
procedure THelpdjFm.TreeViewChange(Sender:TObject;Node:TTreeNode); begin CkeckSave; if Node<>nil then OpenSQL(SDM.SelQ,'select * from sbzl.sbhelp where lb = "'+Node.Text+'" order by bm'); end;
If Node.GetFirstChild = Nil Then
Begin
//写入你要在DBGrid重要显示的内容!!!
End;
begin
if not TreeView1.Selected.HasChildren then
//自己的代码
end;
//自己的代码
AdoQuery1.Sql.clear;
AdoQuery1.Sql.add('select * from table_name where feild ='+TreeView1.Selected.text)
If Node.GetFirstChild = Nil Then
Begin
Query.Close;
Query.SQL.Clear;
Query.SQL.Add( 'Select * From Table Where Name = ' + Node.Text );
Try
Query.Open;
Except
End;
End;
1 取得Node节点的text属性
2 添加node节点时,加上data域(自己定义的指针)我觉得这样类是的问题在csdn里出现过很多次,而且delphi的不帮助也很详细。
begin
CkeckSave;
if Node<>nil then
OpenSQL(SDM.SelQ,'select * from sbzl.sbhelp where lb = "'+Node.Text+'" order by bm');
end;
2、TreeNode.Data是一个指针,可以指向一个结构,在创建该TTreeNode时,在这个结构中存放该节点的信息。
3、给我分