Q
qlw
Unregistered / Unconfirmed
GUEST, unregistred user!
点击treeview的节点时的sender好象不是TTreeNode和TTreeNodes
如下代码，执行到做记号那行就跳过去了
procedure TForm1.treeviewDblClick(Sender: TObject);
var i:integer;
begin
if sender is TTreeNodes then begin /////////////////
for i:=0 to treeview1.Items.Count-1 do begin
if sender=Treeview1.Items then
showmessage(treeview1.items.item.text);
end;
end;
end;
以上代码是Treeview的OnDblClick事件，我本来是想知道哪一节点被点击
另外有无更好的办法？
如下代码，执行到做记号那行就跳过去了
procedure TForm1.treeviewDblClick(Sender: TObject);
var i:integer;
begin
if sender is TTreeNodes then begin /////////////////
for i:=0 to treeview1.Items.Count-1 do begin
if sender=Treeview1.Items then
showmessage(treeview1.items.item.text);
end;
end;
end;
以上代码是Treeview的OnDblClick事件，我本来是想知道哪一节点被点击
另外有无更好的办法？