delphi TreeView 鼠标右击选择节点

癫狂编程
2020-08-26

TreeView树形目录!当鼠标右击某个节点时,弹出一个PopMenu的下来菜单!这是如何让被右击的节点同时被高亮选择呢!比如我选择的是A节点!A节点高亮显示!这时突然在B节点处鼠标右击!可是A仍然高亮显示被选择!只是B节点右侧弹出了PopMenu!我想让鼠标右击的同时B节点既被高亮选择又弹出PopMenu

在 TREEVIEW的两个鼠标事件里写:
procedure TForm1.TreeView1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
PopupMenu1.Popup(X,Y);
end;

procedure TForm1.TreeView1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Button = mbRight then
TTreeView(Sender).GetNodeAt(X,Y).Selected := True;
end;

OK,祝你好运!


阅读88