发生在树型结构上的问题？(50分)

Y

yingtao1

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-18

• #1

我在Panel上面生成一个树型结构，现在还想加个弹出式菜单
实现方法是在Panel上的mousedown事件
procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
popupmenu1.Popup(x,y);
end;运行后，我右击生成的树的结点为何没有菜单弹出？
《www.delphi.mychangshu.com那个例子我以看过》

 

荷

荷塘新月

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-18

• #2

改成：
procedure TForm1.treeview1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
popupmenu1.Popup(x,y);
end;

 

Y

yingtao1

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-18

• #3

这个树是我手工创建的，所以不可以这么写？

 

K

kelvin-lee

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-18

• #4

右击生成的树的结点，其MouseDown（）事件发生在treeview1控件上，而你却把popupmenu1.Popup(x,y);
写在Panel1MouseDown（）里，当然不行了。
我想，你可以先声明一个
procedure MouseDown1(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
popupmenu1.Popup(x,y);
end;
然后，你在创建treeview1后，再对其treeview1.OnMouseDown赋值成MouseDown1，
这样就可以了吧！

 

B

beta

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-18

• #5

同意kelvin-lee