delphi 请问在treeview控件中怎样判断单击一个项目实现某些功能？

Posted 2023-04-15

参考技术A 1.如果你的树不是动态的可以用selectindex,如果你是动态建立的话，那就你在动态建立的时候肯定会在你的每个treenode的对象中保存有起父子接点的关系，比如将上级接点的文本信息保存在treenode.data中，然后通过treeview.selected.text以及父亲接点来判断。

请问delphi中有没有啥办法获取DBNavigator的导航条已经指到了第一条或最后一条记录？

也就是怎样通过DBNavigator知道指针已经指到了第一条或最后一条记录？

参考技术A 只有数据集控件可以知道当前游标的位置,比如ADOTable,SQLDataSet,SQLQuery等等,可以使用它们的只读属性BOF(第一条)和EOF(最后一条). 参考技术B 其实对DBNavigator的操作也就是对DBNavigator连接的DataSet的操作.
想获取是否是最后一条等,在它的OnClick事件中添加判断:

procedure TForm1.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
begin
if DBNavigator1.DataSource.DataSet.Eof then
showmessage('已经是最后一条记录!');
end;本回答被提问者采纳