Выделять узел TTreeView правой кнопкой мыши

Previous  Top  Next

    
 

 

Code:

procedure TForm1.TreeView1ContextPopup(Sender: TObject; MousePos: TPoint;

  var Handled: Boolean);

var

  tmpNode: TTreeNode;

begin

  tmpNode := (Sender as TTreeView).GetNodeAt(MousePos.X, MousePos.Y);

  if tmpNode <> nil then

    TTreeView(Sender).Selected := tmpNode;

end;

©Drkb::01112

Взято с сайта: http://www.swissdelphicenter.ch