procedure TFDemo.TreeView1Click(Sender: TObject); var TreeNode:TTreeNode; begin if treeview1.Selected.HasChildren=false then with adoquery1 do begin try close; sql.Clear; sql.Add('Create table TableName(Field1 char(10),Field2 text)'); ExecSql; except end; end; end;
这一过程可以在点击来TREEVIEW的节点时触发
即TREEVIEW的节点发生改变的事件(ONCHANGE).
至于判断该节点是否为最底层可以判断其是否
有孩子啦
var
TreeNode:TTreeNode;
begin
if treeview1.Selected.HasChildren=false then
with adoquery1 do
begin
try
close;
sql.Clear;
sql.Add('Create table TableName(Field1 char(10),Field2 text)');
ExecSql;
except
end;
end;
end;